(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 535889, 11516] NotebookOptionsPosition[ 531496, 11379] NotebookOutlinePosition[ 531872, 11395] CellTagsIndexPosition[ 531829, 11392] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pom", "=", "pom"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Remove", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$HistoryLength", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pom", "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"startdat", "=", RowBox[{"pom", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vykony", "=", RowBox[{ SuperscriptBox["10", "3"], "*", RowBox[{"(", RowBox[{"Last", "/@", "pom"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PmaxOdber", "=", RowBox[{"Max", "[", "vykony", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PminOdber", "=", RowBox[{"Min", "[", "vykony", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "PmaxOdber", ",", "\"\< W, Pmin= \>\"", ",", "PminOdber", ",", "\"\< W\>\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hodina", "=", "3600"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ctvrthodina", "=", RowBox[{"0.25", "*", "hodina"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nden", "=", RowBox[{"24", "*", "4"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.689517366904698*^9, 3.6895173730380244`*^9}, { 3.6908313494267793`*^9, 3.6908313539070377`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Pmax= \"\>", "\[InvisibleSpace]", "286000.`", "\[InvisibleSpace]", "\<\" W, Pmin= \"\>", "\[InvisibleSpace]", "0.`", "\[InvisibleSpace]", "\<\" W\"\>"}], SequenceForm["Pmax= ", 286000., " W, Pmin= ", 0., " W"], Editable->False]], "Print", CellChangeTimes->{3.692420569065583*^9, 3.6924303879084883`*^9, 3.6925379679548845`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "utvareni", " ", "funkce", " ", "pro", " ", "VT", " ", "a", " ", "NT"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.692537901739094*^9, 3.6925379325858593`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"v1", " ", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"False", ",", RowBox[{ RowBox[{"2", "*", "4"}], "+", "3"}]}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"VT", " ", "0", "to2h45"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v2", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"True", ",", RowBox[{"4", "*", "4"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", RowBox[{"NT", " ", "2", "h45to6h45"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v3", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"False", ",", RowBox[{"8", "*", "4"}]}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"VT", " ", "6", "h45to14h45"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v4", " ", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"True", ",", RowBox[{"2", "*", "4"}]}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{"NT", " ", "14", "h45to16h45"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v5", " ", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"False", ",", RowBox[{ RowBox[{"4", "*", "4"}], "+", "2"}]}], "]"}]}], ";"}], RowBox[{"(*", "VT", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v6", " ", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"True", ",", RowBox[{"2", "*", "4"}]}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{"NT", " ", "21", "h15to23h15"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vKonec", " ", "=", " ", RowBox[{"ConstantArray", "[", RowBox[{"False", ",", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sablonaDen", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "v1", ",", "v2", ",", "v3", ",", "v4", ",", "v5", ",", "v6", ",", "vKonec"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sablonaDen", "=", RowBox[{"RotateLeft", "[", RowBox[{"sablonaDen", ",", RowBox[{"-", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"datP", " ", "=", "vykony"}], ";"}], "\[IndentingNewLine]", RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"base", "[", "n_", "]"}], " ", ":=", RowBox[{"sablonaDen", "[", RowBox[{"[", "n", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6900179318226705`*^9, 3.6900180681857834`*^9}, { 3.690018118798689*^9, 3.6900181192537084`*^9}, {3.69004301988311*^9, 3.6900430492761*^9}, {3.6900441824166765`*^9, 3.690044210213696*^9}, { 3.6900498307300167`*^9, 3.6900498315486135`*^9}, {3.6900498825636306`*^9, 3.690049923092464*^9}, {3.690221712241376*^9, 3.690221839531816*^9}, { 3.690265068047863*^9, 3.690265102887025*^9}, {3.6902653801103535`*^9, 3.690265453653185*^9}, {3.6902655568989196`*^9, 3.6902656270152683`*^9}, { 3.6902657105720987`*^9, 3.690265742479948*^9}, {3.690265808803015*^9, 3.6902658795952063`*^9}, {3.6902659102964582`*^9, 3.6902660274514985`*^9}, 3.6903072780196276`*^9, 3.690307338769558*^9, 3.690307402503357*^9, 3.690307503768767*^9, {3.690308516134575*^9, 3.6903085343196144`*^9}, 3.6903086081088405`*^9, {3.690311564752384*^9, 3.6903115659074497`*^9}, 3.6903121788991284`*^9, {3.6903122328222165`*^9, 3.690312232970234*^9}, 3.690313477800303*^9, {3.690316510861807*^9, 3.69031651111782*^9}, { 3.6903177763862658`*^9, 3.6903178017657204`*^9}, 3.690318928210238*^9, { 3.6906164249888134`*^9, 3.6906164264589753`*^9}, {3.690791231787121*^9, 3.690791238919529*^9}, {3.6907917265971212`*^9, 3.690791739359852*^9}, { 3.690791790963808*^9, 3.6907917915368404`*^9}, {3.690791921051257*^9, 3.690791921599289*^9}, 3.6907931948552036`*^9, {3.6907935919576283`*^9, 3.690793594004734*^9}, {3.6907943930043097`*^9, 3.690794427102251*^9}, { 3.6907948539846983`*^9, 3.690794855504783*^9}, {3.6908256664362726`*^9, 3.690825670051896*^9}, {3.6908305461270337`*^9, 3.690830547350105*^9}, 3.6908310298946457`*^9, {3.690831503589617*^9, 3.690831505890975*^9}, { 3.6908315946641035`*^9, 3.6908316034144664`*^9}, {3.6908330234214945`*^9, 3.6908330242185397`*^9}, 3.690833149642724*^9, {3.690833297807209*^9, 3.690833298550249*^9}, {3.690833336366416*^9, 3.6908333371844625`*^9}, { 3.6909624852847085`*^9, 3.6909624859407372`*^9}, 3.690962638663493*^9, { 3.6909644166474047`*^9, 3.690964417481451*^9}, 3.6909659897430935`*^9, { 3.6910747627064204`*^9, 3.691074763154442*^9}, {3.691076895053897*^9, 3.6910768955839252`*^9}, {3.691077115229662*^9, 3.6910771154186735`*^9}, { 3.6910793344481196`*^9, 3.691079334934147*^9}, {3.6910917687792883`*^9, 3.691091769548885*^9}, 3.691096951506096*^9, {3.6910970388330965`*^9, 3.6910970393141246`*^9}, {3.6910972868504477`*^9, 3.6910972875334864`*^9}, {3.6910974180978127`*^9, 3.691097418875857*^9}, { 3.691097464960496*^9, 3.6910974656005335`*^9}, {3.6911677311882577`*^9, 3.6911677707050576`*^9}, {3.6911678052640376`*^9, 3.691167818245793*^9}, { 3.69116791602938*^9, 3.6911679478222103`*^9}, {3.6911680112548327`*^9, 3.6911680687001224`*^9}, {3.69116819958362*^9, 3.6911682635022783`*^9}, { 3.6911683279249754`*^9, 3.691168378374857*^9}, {3.6911686641042194`*^9, 3.69116867669495*^9}, {3.6911688104196205`*^9, 3.6911688268035583`*^9}, 3.6912639344987593`*^9, {3.6912640177705383`*^9, 3.691264018212553*^9}, { 3.6912641185432997`*^9, 3.6912641191543336`*^9}, {3.691264650197749*^9, 3.691264678935392*^9}, {3.691267771561083*^9, 3.691267785071882*^9}, 3.691271230656588*^9, {3.6912713988712206`*^9, 3.691271408692786*^9}, { 3.6912715760953712`*^9, 3.6912715787955256`*^9}, {3.6912716508896623`*^9, 3.691271655127905*^9}, {3.6912717133032265`*^9, 3.6912717430309396`*^9}, { 3.691272763509368*^9, 3.6912727639423943`*^9}, 3.691274070159655*^9, 3.6912741451489515`*^9, 3.6912776728811064`*^9, {3.691277744587209*^9, 3.6912777451322403`*^9}, {3.691325011260433*^9, 3.6913250224291487`*^9}, 3.691331079243909*^9, {3.6913312123608027`*^9, 3.6913312232475743`*^9}, { 3.6913313249989634`*^9, 3.6913313408019857`*^9}, {3.6913313846933975`*^9, 3.6913313905343933`*^9}, {3.691331528055106*^9, 3.691331534560068*^9}, { 3.6913393391570616`*^9, 3.69133934113813*^9}, {3.6913451149360285`*^9, 3.691345115075039*^9}, 3.6916863073508997`*^9, 3.691691853210188*^9, { 3.6916919318426895`*^9, 3.6916919616833982`*^9}, {3.691706314683626*^9, 3.6917063302258916`*^9}, 3.6917396072435417`*^9, {3.69253795181896*^9, 3.6925379730071745`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"U", "=", "400"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"cena", " ", "za", " ", "elektrinu", " ", "pro", " ", "NT"}], ",", RowBox[{"VT", " ", "a", " ", "prikon"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cena1JoulePeak", "=", FractionBox["3.35549", RowBox[{"hodina", "*", "1000"}]]}], ";", RowBox[{"(*", RowBox[{"cena", " ", "VT"}], "*)"}], "\[IndentingNewLine]", RowBox[{"cena1JouleBase", "=", FractionBox["1.08081", RowBox[{"hodina", "*", "1000"}]]}], ";", RowBox[{"(*", RowBox[{"cena", " ", "NT"}], "*)"}], "\[IndentingNewLine]", RowBox[{"cosFi", "=", "0.95"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenazaPrikon", "[", "PmaxPeakSjednany_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"PmaxOdberCelkem", ",", "Proud", ",", "cenaPrikonu"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Proud", "=", FractionBox["PmaxPeakSjednany", RowBox[{ SqrtBox["3"], "*", "U", "*", "cosFi"}]]}], ";", "\[IndentingNewLine]", RowBox[{"Proud", "*", "13.43"}]}]}], StyleBox["\[IndentingNewLine]", Background->RGBColor[1, 1, 0]], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Eta]Accu", "=", "0.9"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PvybMax", "=", "30000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fPenale", "[", "\[CapitalDelta]P_", "]"}], ":=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ SuperscriptBox["10", RowBox[{"-", "4"}]], "\[CapitalDelta]P"}], "]"}], "-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dobaZivota", "=", RowBox[{"10", "*", "365", "*", "24", "*", "4"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "doba", " ", "zivota", " ", "baterie", " ", "ve", " ", "ctvrthodinach"}], ",", " ", RowBox[{"na", " ", "10", " ", "let"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaJoule", "=", RowBox[{"7000", "*", RowBox[{"25.92", "/", RowBox[{"(", RowBox[{"14000", "*", "3600"}], ")"}]}]}]}], ";", RowBox[{"(*", " ", RowBox[{"Tesla", " ", "powerwall", " ", "2"}], "*)"}], "\[IndentingNewLine]", " ", RowBox[{"(*", RowBox[{"Tesla", " ", "powerpack", " ", "pri", " ", "100", " ", "kWh"}], "*)"}], "\[IndentingNewLine]", RowBox[{"baterieSystem", "=", "0"}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.6900179318226705`*^9, 3.6900180681857834`*^9}, { 3.690018118798689*^9, 3.6900181192537084`*^9}, {3.69004301988311*^9, 3.6900430492761*^9}, {3.6900441824166765`*^9, 3.690044210213696*^9}, { 3.6900498307300167`*^9, 3.6900498315486135`*^9}, {3.6900498825636306`*^9, 3.690049923092464*^9}, {3.690221712241376*^9, 3.690221839531816*^9}, { 3.690265068047863*^9, 3.690265102887025*^9}, {3.6902653801103535`*^9, 3.690265453653185*^9}, {3.6902655568989196`*^9, 3.6902656270152683`*^9}, { 3.6902657105720987`*^9, 3.690265742479948*^9}, {3.690265808803015*^9, 3.6902658795952063`*^9}, {3.6902659102964582`*^9, 3.6902660274514985`*^9}, 3.6903072780196276`*^9, 3.690307338769558*^9, 3.690307402503357*^9, 3.690307503768767*^9, {3.690308516134575*^9, 3.6903085343196144`*^9}, 3.6903086081088405`*^9, {3.690311564752384*^9, 3.6903115659074497`*^9}, 3.6903121788991284`*^9, {3.6903122328222165`*^9, 3.690312232970234*^9}, 3.690313477800303*^9, {3.690316510861807*^9, 3.69031651111782*^9}, { 3.6903177763862658`*^9, 3.6903178017657204`*^9}, 3.690318928210238*^9, { 3.6906164249888134`*^9, 3.6906164264589753`*^9}, {3.690791231787121*^9, 3.690791238919529*^9}, {3.6907917265971212`*^9, 3.690791739359852*^9}, { 3.690791790963808*^9, 3.6907917915368404`*^9}, {3.690791921051257*^9, 3.690791921599289*^9}, 3.6907931948552036`*^9, {3.6907935919576283`*^9, 3.690793594004734*^9}, {3.6907943930043097`*^9, 3.690794427102251*^9}, { 3.6907948539846983`*^9, 3.690794855504783*^9}, {3.6908256664362726`*^9, 3.690825670051896*^9}, {3.6908305461270337`*^9, 3.690830547350105*^9}, 3.6908310298946457`*^9, {3.690831503589617*^9, 3.690831505890975*^9}, { 3.6908315946641035`*^9, 3.6908316034144664`*^9}, {3.6908330234214945`*^9, 3.6908330242185397`*^9}, 3.690833149642724*^9, {3.690833297807209*^9, 3.690833298550249*^9}, {3.690833336366416*^9, 3.6908333371844625`*^9}, { 3.6909624852847085`*^9, 3.6909624859407372`*^9}, 3.690962638663493*^9, { 3.6909644166474047`*^9, 3.690964417481451*^9}, 3.6909659897430935`*^9, { 3.6910747627064204`*^9, 3.691074763154442*^9}, {3.691076895053897*^9, 3.6910768955839252`*^9}, {3.691077115229662*^9, 3.6910771154186735`*^9}, { 3.6910793344481196`*^9, 3.691079334934147*^9}, {3.6910917687792883`*^9, 3.691091769548885*^9}, 3.691096951506096*^9, {3.6910970388330965`*^9, 3.6910970393141246`*^9}, {3.6910972868504477`*^9, 3.6910972875334864`*^9}, {3.6910974180978127`*^9, 3.691097418875857*^9}, { 3.691097464960496*^9, 3.6910974656005335`*^9}, {3.6911677311882577`*^9, 3.6911677707050576`*^9}, {3.6911678052640376`*^9, 3.691167818245793*^9}, { 3.69116791602938*^9, 3.6911679478222103`*^9}, {3.6911680112548327`*^9, 3.6911680687001224`*^9}, {3.69116819958362*^9, 3.6911682635022783`*^9}, { 3.6911683279249754`*^9, 3.691168378374857*^9}, {3.6911686641042194`*^9, 3.69116867669495*^9}, {3.6911688104196205`*^9, 3.6911688268035583`*^9}, 3.6912639344987593`*^9, {3.6912640177705383`*^9, 3.691264018212553*^9}, { 3.6912641185432997`*^9, 3.6912641191543336`*^9}, {3.691264650197749*^9, 3.691264678935392*^9}, {3.691267771561083*^9, 3.691267785071882*^9}, 3.691271230656588*^9, {3.6912713988712206`*^9, 3.691271408692786*^9}, { 3.6912715760953712`*^9, 3.6912715787955256`*^9}, {3.6912716508896623`*^9, 3.691271655127905*^9}, {3.6912717133032265`*^9, 3.6912717430309396`*^9}, { 3.691272763509368*^9, 3.6912727639423943`*^9}, 3.691274070159655*^9, 3.6912741451489515`*^9, 3.6912776728811064`*^9, {3.691277744587209*^9, 3.6912777451322403`*^9}, {3.691325011260433*^9, 3.6913250224291487`*^9}, 3.691331079243909*^9, {3.6913312123608027`*^9, 3.6913312232475743`*^9}, { 3.6913313249989634`*^9, 3.6913313408019857`*^9}, {3.6913313846933975`*^9, 3.6913313905343933`*^9}, {3.691331528055106*^9, 3.691331534560068*^9}, { 3.6913393391570616`*^9, 3.69133934113813*^9}, {3.6913451149360285`*^9, 3.691345115075039*^9}, 3.6916863073508997`*^9, 3.691691853210188*^9, { 3.6916919318426895`*^9, 3.6916919616833982`*^9}, {3.691706314683626*^9, 3.6917063302258916`*^9}, 3.6917396072435417`*^9, {3.6919362193589716`*^9, 3.691936226924077*^9}, {3.6925379940593815`*^9, 3.6925381236197996`*^9}, { 3.692538605918419*^9, 3.6925386077855253`*^9}}], Cell[BoxData["2.1416666666666666`"], "Output", CellChangeTimes->{3.6924205694249587`*^9, 3.6924303881666517`*^9, 3.69253807683712*^9}], Cell[BoxData["0.0034607142857142853`"], "Output", CellChangeTimes->{3.6924205694249587`*^9, 3.6924303881666517`*^9, 3.6925380768421197`*^9}], Cell[BoxData["0.0036000000000000003`"], "Output", CellChangeTimes->{3.6924205694249587`*^9, 3.6924303881666517`*^9, 3.6925380768451195`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.691703897526698*^9, 3.6917039503662624`*^9}, 3.691936258937579*^9}], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{{3.691270903669864*^9, 3.6912709787421618`*^9}, { 3.691271052336375*^9, 3.6912710999471025`*^9}, {3.6912711319599366`*^9, 3.6912711771015215`*^9}, {3.691271259560252*^9, 3.691271366860388*^9}, { 3.6912714211114945`*^9, 3.6912714346292706`*^9}, {3.691271512897751*^9, 3.691271556776264*^9}, {3.691271602725895*^9, 3.6912716164246798`*^9}, { 3.691271675218057*^9, 3.691271676239105*^9}, {3.691271755425639*^9, 3.6912717737476892`*^9}, 3.6919362640275474`*^9}], Cell[CellGroupData[{ Cell["Letni udaje", "Chapter", CellChangeTimes->{{3.6895219592517524`*^9, 3.6895219618855467`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"brezen", "-", "31"}], ",", RowBox[{"duben", "-", "30"}], ",", RowBox[{"kveten", "-", "31"}], ",", RowBox[{"cerven", "-", "30"}], ",", RowBox[{"cervenec", "-", "31"}], ",", RowBox[{"srpen", "-", "31"}], ",", RowBox[{"zari", "-", "30"}], ",", RowBox[{"rijen", "-", "31"}], ",", RowBox[{"listopad", "-", "30"}], ",", RowBox[{"prosinec", "-", "31"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"pocatecniden", " ", "-"}], RowBox[{"(*", "patek", "*)"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"letniVykony", "=", RowBox[{"Take", "[", RowBox[{"vykony", ",", RowBox[{"{", RowBox[{ RowBox[{"nden", "*", RowBox[{"(", RowBox[{"31", "+", "30"}], ")"}]}], ",", RowBox[{"nden", "*", RowBox[{"(", RowBox[{ "31", "+", "30", "+", "31", "+", "30", "+", "31", "+", "31"}], ")"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"hodnoty", " ", "za", " ", "cerven"}], "-", "srpen"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"zacatek", " ", "letnich", " ", "hodnot"}], " ", "-", " ", "streda"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"dnyLetniVykony", "=", RowBox[{"Partition", "[", RowBox[{"letniVykony", ",", RowBox[{"24", "*", "4"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tydenLetniVykony", "=", RowBox[{"Partition", "[", RowBox[{"dnyLetniVykony", ",", "7"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniSt", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniCt", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniPa", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniSo", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniNe", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniPo", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "6"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetniUt", "=", RowBox[{"Mean", "[", RowBox[{"tydenLetniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "7"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"prumVsedLetDen", "=", RowBox[{ RowBox[{"(", RowBox[{ "prumLetniPo", "+", "prumLetniUt", "+", "prumLetniSt", "+", "prumLetniCt", "+", "prumLetniPa"}], ")"}], "/", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumLetVikend", "=", RowBox[{ RowBox[{"(", RowBox[{"prumLetniSo", "+", "prumLetniNe"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"{", "prumVsedLetDen", "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "prumLetniPo", ",", "prumLetniUt", ",", "prumLetniSt", ",", "prumLetniCt", ",", "prumLetniPa", ",", "prumLetniSo", ",", "prumLetniNe"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{ "PlotLabel", "->", "\"\\""}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.689403133896705*^9, 3.689403266959205*^9}, { 3.6895132128320637`*^9, 3.6895132866736927`*^9}, {3.6895133899942007`*^9, 3.6895135218095007`*^9}, {3.6895135518167105`*^9, 3.68951364438095*^9}, { 3.6895137798656006`*^9, 3.6895138342575607`*^9}, {3.689513867046421*^9, 3.6895138801935687`*^9}, {3.6895139165794115`*^9, 3.689514066710558*^9}, 3.689514456483629*^9, {3.6895144907307496`*^9, 3.6895144950172305`*^9}, { 3.6895145560740056`*^9, 3.689514568450506*^9}, {3.6895149289712987`*^9, 3.689514953969544*^9}, {3.689514986862111*^9, 3.6895154985896807`*^9}, { 3.6895155594838133`*^9, 3.689515629827879*^9}, 3.6895156766844387`*^9, { 3.6895157940432673`*^9, 3.6895159402375526`*^9}, {3.6895159726138654`*^9, 3.6895160197240133`*^9}, {3.6895160696134744`*^9, 3.6895160916487155`*^9}, 3.6895165196913147`*^9, {3.6895166398352857`*^9, 3.6895167001281557`*^9}, { 3.6895167366094785`*^9, 3.689516807760307*^9}, {3.6895168380574923`*^9, 3.689516866611133*^9}, {3.6895174664341664`*^9, 3.6895175044448123`*^9}, { 3.6895175368260465`*^9, 3.6895175411681485`*^9}, {3.689517573403767*^9, 3.689517574543167*^9}, {3.689517622835579*^9, 3.689517623951477*^9}, { 3.6895176570708127`*^9, 3.6895179289308558`*^9}, {3.689517991180472*^9, 3.689518018488836*^9}, {3.6895180608186083`*^9, 3.6895182508045926`*^9}, { 3.68951828150187*^9, 3.6895183640231924`*^9}, {3.689520648711402*^9, 3.689520835952423*^9}, {3.6895216057333746`*^9, 3.689521606267729*^9}, { 3.6895216711894217`*^9, 3.6895217083682966`*^9}, {3.6895217572832375`*^9, 3.68952176043287*^9}, {3.689521805597783*^9, 3.689521854717018*^9}, { 3.6895218986189146`*^9, 3.689521943334705*^9}, {3.689857664953161*^9, 3.6898576700144453`*^9}, {3.6898582951172347`*^9, 3.6898582965673156`*^9}, 3.692538133891398*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1lEtIVVEUhg82yCLQwF5UVhIloZJmN5+5fF+9Pu77ihVUkJAFNQl6Dc4s g0aCNpACCbVBgyAb1eCUjWpkOulS+cgKK9OiKHvdzj7/vxZcNt9d+997vc7e cfxM+ESaZVlH3Z9ZYUtVk89d808J/5Bt2a6lK6dLS8C11GtypuQbm1DOAg8q b8T+AeUtct5Yr/J2WTLmV86R2RnXAso7JcPYWuVd8mTMtYVX5FzpNJam/j1S WeFamXIe/MXKBfCfVt4r1/tdy1UulO6TrhUqFyGeTcr7kM+y1qNYrhjrmibv h/6R+n2If4PGe0BGhlzre0kuQb2uvSWXyiE33OTlb+Qy7/5jL76Ty7GG/5Ar xKTzMP8fuRLr7hT5IOJJKldJj4n3tu4Xb7U7/oJt8fJ71kS2qlGfst/0k1v1 /hrvvJVnVV+D/kyqvpb15n12LfQ5Gk+dfDX9HybbdV4+FW/UX++dt2K9VQ1/ vZjjxzLIVoOY8by5Wv0N4s3vHdU3yv1R13L0/kas/cv0++WCmcdbP+j3oz+O +pvksOnHKc2/Cflkaf7N6O9Wst3s1Xv+HvdbAe/+4t5f9Afkornvrp7fgvtv /KS/xZvXZDfjsVrx/U1zHuxWmTPz+HiR/jbUu4hst2Geej7T34581pDtdvhH FugPoh9PP4EliO9z8SP3BzEvIx/AThD3D8xTHxJz/JDvPfUh1Lv0HfUhr36d JZxvJySZpl6b56gPo9+pWerD8sXMQx7ZDov53AJdZCcs5WZ/NtmKyITpd5Hq I6jH+Az1EcTzgOxEsF4iW1HU9xxZojgvpPoo8qtWfRTxVqo+hu9/nepjqFeB 6mOIP6L6GPrdp/q4mPBGr6o+jvlepfo4Vh/fFyeO/qX0fUng/RwmSwL1HSTb CcSTIDsJvAdHVN+B961+Sv4DrFW7IA== "]]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0., 96.}, {0, 131776.4705882353}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6924205717374644`*^9, 3.6924303884954734`*^9, 3.692538143151918*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlE1IVFEUxx+2cWdGRINhJRUSJZllX5pnnBwdZxydN19iEBIUFUjbWlQP IhJa1KYCg6RFLQZqZR/LMQch2k07m4Y0k6DSaVNJH/be/Z9/4DswXH7zv/9z zj1z72w9ed4+VWVZ1rD78VZEpWNu1o1AWfQLefTQjcl3ytVy1gR5rVzwooq8 Xmq8+FhS3og1Rn2T7PailrxF7t5xo4ncIKb+ZvI2+VZx4wXz7ZDR627cIzf6 eKes7n+XFKbc+Mp8TfJ0wo0U9T3gIerNyHebvFeiXrSTW6TNixzr7fOdfz/y DVNvhT/yVvkAzlOYUT4oQ16s+6B8CP2OfVc+LG+KxaK9RD4i9W7cf/ZHuQ3z XFlRbjfnfxC3guCjmMcIuQP+HPcL1vBfrI6PrSDqv/6tetDUexyh3gmepr8T v2cD84dW9+eETP0TZ9jPMXw/puyA8z+od+G+PafehXneoB42+UcuUw+b+V0d p95tOLSGejf6Pf5L++tBv1PL2l+P3j/ON4JV2H/E7N9Q5vl6ze83c416L/pr ph7FvFs4nyjWV8wfw/485xvDfSixvz7ct5c/Ve8z+eqnK6rHwRFlJ458T5ZU 70e+grLTj/OOUx9A/jplGdD3saj7Vc99AedVP/1Z/QnUD3xSfwL15xfUr/p2 5XwC/lvz6rfxf1GnLDb6vanvwbHxXhaV8zb6P8f3kkS9i8qSRP4A/Um8z8k5 9Sex1ipbKXO/i1FlSSHfFWUnhfMv0J/y1U/jfjayftpXP+3zp7GO0p/BfCbo z+D+lVk/g/NfmlV/Bv/HNcpWFv0sv1d/FvlCqjtZnKea/izeY0n3W4P/8/0D 5r+qPA== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlEtsjFEUx79YiB1pEE0QRAVpBVVVhp7pdKbvdt5DbZDMogmKkjYicXe1 kwiakNiNiFjQsBGRkdrVQll4LEZfDI3HiJC2HvV99/8/i85JJje/+X/ncc89 96490h1NL3Ac55D781ZYofZCv2sTo8I/5HvBNWeMvEieDrn2WPUlMnDVtXPK S2WxZ5XKK6TCs7l35JXy8oVrZ5XXyGrPjiqvA5/KkdfL+JhrpcobpMWzauWN WEPKmxHfKJcX+W8pir8V9b5R3lakb8d+88qViPd6grxDujxb/oFchXVukrwT 9aS0H9VF8XchXpP61+D7mp/k3dR/kfdg/89myT7p9OzAH/JerK1/yftQ3+g/ cq3Nf6NijixyM5PJlM1SN2LjD3er7pc+16aHGN/40Y8fmq9OfK49Gmc+U2f1 QLnmC8iD+66NaPwA4t3T+PXQh8mm3s7biaDjhx60/SjpJZugrTfdo3rInt/F r6qH0K8p1Rvs95llqjfgvE9r/xrtam5NM3+j9T+c/029CfNfpftrwn7T2t9m 1P9K9eYivcWez9sB7V8L7sNl7V8r+t3PfKYV53F9hnob54vnb9qgjxSot2O9 RjbtNr/vjOodtt99Pd+od2A/m8hOWOx9v/IFLGHog2QTRj/LPoOzYez30xT9 I5i/kx/pH8F85vL0j6D/xznf2Qj6f+k9/aOY91reF4livu7wfpno/PuWJR/U +xdDPaVkiSH/+XH6x3DfHpKzMfTjCdmJo/4S9Y/P/97EkS+n/nH0q1P9E9jP bb6PkkD/etU/gfPoUv8Ezv+5+iex30GyJJFvkvFMEu/rDN+PbBL57up7ksL3 x8iSwrqKbFLz3+NsETv7Ue/CUfkP/9vRgA== "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVEtIVGEYvQTV0MaKiBYhJRZRKlmjVmp+ao46YzrvsVZlRAiB0Kqi6IcW 06oWkbUKW+RKqEVBUNRA0cIgQlc9xhp7mD3EiMRe1r3/Od9i7oHhcuZ85/u/ x73/+r6B+OFFjuMccH/eE5ht2u+h/I3wD6n0sPg1eUAuD7ooU75cIh6qla/y xa8Rm290gnytNHi4ovo6X3wZnqK8XIavu7ir/o2+8zfJo4cuplTfLCUeniuv 8J1fJaUejqp/q3ybdTGierUv3za5fctFUvl2GR9zcVL9QV/9Nb56a5H/zivy OtRflSffIcc9VHwg32n9Gx58J98F/cYP8nrwwB/yBpksFAoHX/4lb7T9Xb25 QL7b9v8i8I+8CfPp03iRfhfTtb/BjeD8leROs93vk4s/qTdDv/SLeovtZ/UJ 9bdgv5VaXyv6DZKbVqvf+6j6HtTfy3oNeGFQ62+Tc9lsdulT1dvQ/5zqIb5/ 7M+EOH/V27GfFezXtGO/5+epdyD/whz1Dqu3htmv02n17DXtr9PO78Kw1h+2 9cyHtL8w3rd9qkfQzxb1R+Cv1/xdiJ9hPabL7qN/mda3F/oS7t+Qj85Q70b8 IXLTjXk0fqXeg3mdITc9Pj0KnvsCLlHM59Rnxkcxv6FP4Lko+qmbpj8GvWaK /hj8Q+/pjyF+7B391Efe0h/H9xSZpD8O/T7vHxPH+zRQoD+O/kvJnQT2kyeX BPLFyE0C399p9Scwj7D6k8X5JIl6j6jfp+eSxfmcVHG9ksL98ljrT2E/QfWn 8H6WqD9dHC9p5D+r/jS+13HeL7m07/7JFN93kim+j0wG8YZ6LoPzjun91Iv+ nuXlPw0bymw= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlNtLVFEUxg/1UGF0JwwiUjJEMrqMaaW5vE0zjpe5j/QURYFPVlAMBHkg yCDI8KGLQdLDSH9ARUQPA10eVSboQWxSo6jsMoWFml3O2d+3Xs6Cw+Z3vv3t tfY6e5+SYz3RE0ssyzrqPO6IKNSbwZ8XvpAtbpxRXu7hNdLtxnHlDfLgvhNx 5WKpdKNIebOE3KhW3or10q/JpZ752+TGdSfKlbfLETfGdH65R6+Q6SknNinv 8PBOT/5dnvp3e9bf41l/rzx76sQX1X2e+VVYv055H/Z3YYJcLZf7nLitXCO1 boy8J+/HeitnyQdQ362f5IPyveBE1R9yrax2I/mPXId8QasBfAjvB5XrTb4n r3S+mHqWRf6CbTH5x1eRrQbzPX2Z39QbUF9M8zeaek7NqL9RhjOZTNmC+pvk ZS6XG6hhfrvJ9O/ikNbTbHhpXvVmT70tOA8TqregXz9U95v9d46q7pe0E496 VD+M/Y1ofeC+igXWFzD9/fh8jnrA+OdGVQ+a0b62SD1o9HSv7r8VvEi2W7F+ seoh3IeT2r+QOU8be3X9NuTrmqfehv21sB6rHf0t+UW93fQ3M1Cg3sHvTbY7 TD/6T6veifM79I16J+/XV+phnOdzn8ESxn6uzHB+GPU8/ATOhnEez5OtCPxr P9AfwX17wfNsR9CPwDv6I1hv8i39UZyndWSJYn+XpumPYrxKzkZR/xjZimEs Un8M92NW/TH057H6Y8jfrf448q0gSxz3qXKK/jjmn52kP45xkGwl0A8f50sC 3/sedTuB/s+rn3oZ51tJ1GupP4l+3FU/9eE39CdRz02ylUK/15MlhXylZDuF /vfz/5VNwX9H/2dd5n7m7Lz8B/UuqpE= "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVEtIVGEUnoSwTdSiRUFYSURISZblI23OODo+ZtSZO68YwiJyYRuhNhEt fgiqnasMooSgXARBRa1ycSNbtZFaFPQwzVKzx2RRlva4937fCe79YLh88/3n nO8///n/TYf7rd6SUCh0yPm5X6AYPuFi6aXwDxl94OCj8hXy5LED84p8tZw7 62BA+ZqAvhbx08rXB/SNcveOg4zycmlwMaR8c4BvkVUuxtXPVpmccLBO9Qr4 Oa/6toBeKV+KDm6rvgN+ziivkriLGl2/M1BvVyBftfj7tVv6XPS/IN+DfFHl Ncg395y8Fn5635LXyXYXY/Pk9fA38o18r6ffeLZI3oD+FX6TN8Lf4B/yfV4/ SuN/ycNS5mCoTtcL/M4znxHUv6j5IzJ8zcGBn9Qj+Pb8ot7k1a8uX6LeJBcG HdwiD0W9/Q4Mqx5Fv0q0fjPWV5KbZs/PbIXqLV7/Hi2o3uL1w3qoegz9tTV/ DPNyU/23el9ziX5Nq1d/4cgP6m3It4z9NW1e/MiVr9Tbkf+46u1Yv6jn0QG9 qHoH+nVS9TjqnWI+E8d8FvR8Ezj/00XqCc77J+qd3N8H6p3c3xz1LsRHyE0X 5uHzLPVuKbiYITfdmI+q99ST3jyUrSSXJM7n8gzXU98wDW4nkb/0HeNTmM/w FONT8Pv9DeNTON+j5HYK+386yXgL+aMTjLcwfwdfM97CfNaT2xb2MzrO+DTW LyeXNPId4/00af/7ZadxPvf1vmb8918y/vfDZPz3386g/9f1PmfxTWh8Fv7G NJ56jH7sLOrf0/cjF/Cf87+nJud/r+wc+tGn/vMB/3n0v1Hr53m/ND4P/1c1 fv///f0DRC7Mhw== "]]}, { Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlE1I1UEUxQchcFUJLgqiD6mQKMmyUtO8ml/P91Lfp+JKQgNXQhC4illl i7bVOqgW0Spq/xcDt2IgmpoUBEEbJQjcOcOZI9x74DH83pl7Z+7Mnf+Fh/Ol 2Trn3HT4xRHa63m+GPRyR9IfcjZqgVwv+3tBn8gnpSvqLblRXr8KaiGfkmtR DeQz8m0t6Bn5vHz5HDRFbpITUb+3E1+Uhag6+pfl/bugFfrNiJ8mX8FYIl81 fgvWf0G+brhV5qLmyTdkKmqdfBPn8ZTchv3Vk2+Bj28lvo169r8nvoNxZjNx u+EOrL+4kbjT+HdR/ya5S379DGpl/m7s9w/9e7iPTu6nB/mfkAV+W9q/F3O+ vdj/3zTf9+K+P9Dv0+fl+7CfS/Tv63w+8RLvsx/rN/9Ifr/o/htAPauJ/QDy n07z3SD669hu8gfRnx/pD+E+/jP/EO7vMf1h1LfL/IZdzvg5Ez+i6/Ejpp/z OJ85+nldjyvoen3BvJcHOp837EYlH9VNfxTnc47+mH6/fszEj+v5Mo6xwPmG MzPfFeXrctC/dL9SNPUU9fvJinq/roT4g9RfUsI4yX4znBl2Zd3PUkb+HOPL uh+zMup/xPiKzicV9Etjek++ot9PVjHvp4p63zC+quf7KurfZnzVnF9N94/U 9PfU13T/ZTXdT25C36cY9hO6nzLDbvLoe3wIzgy0EA== "]]}, { Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdU0tIVVEUvQhB0KACBxWVFRZRKdnX0nLb0+fnPX3v3fcTByGRAyFwFDiK MxCLaBT0gaZ9IGhW0CguJDQvkCxTCoIgAqWRs85pnTXYe8Fls+7+nLX32efg tdl0uiVJkin/BQus9/UGPP0m8YfsD5gj3ypvXntMku+QH9892shbZTJgaSXy XfK/3kvyvdIRsJPxB2R7wE/6DxneLnduezwhP2LOOyrPn3l8oP+YiT9h9HQa /0lzXpd8+uixwPqnYIvkp2UuoIX8jMk/i/NWvkZ+DnqPk5/H/G58ibwb9ir5 Beh7tRz5RcN7YK+T96L/tc+RX5LF9x7b6L8MvXvI+6Cni+cJ9P6KfidGT7/W 6/oxn8f0XzF+w5Mc4u/H/l0O+zTPeQxIISAX5+cGZCZglvMcRL0p+gd1fJKH 5f24vNmvIc3dkNmfYczrL+sPm/0e0ffrRtDPPZ4/avSPIv43+yugn5vsvwCb Mr+o+3VFU38M+jaZP4b53aJ/XDbWPd4yf1zPIymh/gz7Lxl/Gfv1IHIpw+ZX Y3wZ/axFf1Y2861ofVLR791VdH9Zxcw/1fUk1e/FRf++yLMUel9wv6p6H6WK +dzlPlZ1fFbFvBaZX4P+Lcyv4T0t8z3UcL8l5tfwnlqZX8d8NphfR/131F9H P4fZf13vW9LQXBry6KFHJ++rofcxM/FJU/ulafKb+v6zJvL/cP4T0Ld7Vf4B YXrDow== "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0., 96.}, {0, 139000.}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Prubeh spotreby pro Kveten - Zari\"", TraditionalForm], PlotRange -> {{0., 96.}, {0, 139000.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"Po\"", "\"Ut\"", "\"St\"", "\"Ct\"", "\"Pa\"", "\"So\"", "\"Ne\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.363898, 0.618501, 0.782349], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24259866666666668`, 0.412334, 0.521566], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.363898, 0.618501, 0.782349]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.363898, 0.618501, 0.782349]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.363898, 0.618501, 0.782349], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6924205717374644`*^9, 3.6924303884954734`*^9, 3.692538144183979*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Zimni udaje", "Chapter", CellChangeTimes->{{3.6895219719604836`*^9, 3.689521974385996*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"zimniVykony", "=", RowBox[{"Take", "[", RowBox[{"vykony", ",", RowBox[{"{", RowBox[{ RowBox[{"nden", "*", RowBox[{"(", RowBox[{ "31", "+", "30", "+", "31", "+", "30", "+", "31", "+", "31", "+", "30"}], ")"}]}], ",", RowBox[{"nden", "*", RowBox[{"(", RowBox[{ "31", "+", "30", "+", "31", "+", "30", "+", "31", "+", "31", "+", "30", "+", "31", "+", "30", "+", "30"}], ")"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dnyZimniVykony", "=", RowBox[{"Partition", "[", RowBox[{"zimniVykony", ",", RowBox[{"24", "*", "4"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tydenZimniVykony", "=", RowBox[{"Partition", "[", RowBox[{"dnyZimniVykony", ",", "7"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumZimniSt", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumZimniCt", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumZimniPa", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumZimniSo", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "5"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumZimniNe", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "6"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumZimniPo", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "7"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"prumZimniUt", "=", RowBox[{"Mean", "[", RowBox[{"tydenZimniVykony", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumVsedZimDen", "=", RowBox[{ RowBox[{"(", RowBox[{ "prumZimniPo", "+", "prumZimniUt", "+", "prumZimniSt", "+", "prumZimniCt", "+", "prumZimniPa"}], ")"}], "/", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"prumZimVikend", "=", RowBox[{ RowBox[{"(", RowBox[{"prumZimniSo", "+", "prumZimniNe"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "prumVsedZimDen", ",", "prumZimVikend", ",", "prumLetVikend", ",", "prumVsedLetDen"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "prumZimniPo", ",", "prumZimniUt", ",", "prumZimniSt", ",", "prumZimniCt", ",", "prumZimniPa", ",", "prumZimniSo", ",", "prumZimniNe"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{ "PlotLabel", "->", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.689518465149518*^9, 3.6895186851314907`*^9}, { 3.6895187801557384`*^9, 3.6895187806158066`*^9}, {3.689518870448882*^9, 3.689518871080222*^9}, {3.689520877566901*^9, 3.689521090178138*^9}, { 3.6895211490280433`*^9, 3.6895211560441923`*^9}, {3.689521565815798*^9, 3.689521589949266*^9}, 3.689858104561333*^9, 3.689858394265912*^9, 3.690018181054497*^9, {3.6925381615179806`*^9, 3.6925381622830153`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1VF1Ik2EUnrZ+DApLg6AG/eoIK7W/1SyPOtf8m/vfurNV4IXQTVhX8QlR zEAC8SpWQYEXBaUXgXmRhHUT1k3ECoRIgqIFZjorK/vec84zGC/Pd85znvP3 vtvT5yPnih0OR5f9N6f8Zuu/TQbzvrE50g98Wmu/K15D7zLZXEkAuFRw3Q/F 5cR8J/BmKjLHT/hvpevZXCZ7d1bxNupNV/Z+rILeDjLm1P15xbsEzyBeBY2U eUfKphHPTTY9PbwKeI/of0W8Kho1/jHw99HzYH7y1Qz8q6kzbxM+ANeIvQv8 Wok/D/4BOUPI7yC57QIKU8CH6KKp5/KC4sNy7l5UfIRCtl7P44JiD22y0xsf Aj5K/abgT/8UH+N4adeyYi/n2/N7RYPgOnph5zsQWKn4OJXb8ZY2OBWf4Pm0 PIV/PdXZDaxxwE5kyr9yTe0Wkdc0eKhY7Q1Sz6LmYzVw/HFnkdobpd9x9bca KWf0RmFv4n4G3YqtJq5vuh92H++D6xT4Ps438xL6zaxrjYHfzPHWXwXfL/Nr hd1PZ8y83jjUfpL3Jzeg/bMEp7qXtJ8BmfeTP2oPcP4ZD/rfwvVNPgO/RfZp BvFbycDxbui3cj+dOdjbeH8qd4LfJv13I34799O796/a26XeMs3H0cH+I69/ qb2DHhnBB9ivoPjnFVtByf8C9rFT6r+n+2t1in4t7CE6a/K7pHwKSf+yiBeS c1n9J0KS70boh0W/Se0UlvfApdgKc/zhG6o/EZb99uM+RVivcrViiki+C3r/ rAjdNvP6ongiIvu4Dvyo4Hm1U1T28Q74UXpv8ulD/lF+PwYL4Mf4/vbeBD8m 8w6AH5P8KqAfo1smH8J7Eed+l5xWTHGev69UsRXnfRncAn5c+u+BfkL8+1B/ QvpZjXkl5P5/Bj8h8TrwPiVl/6f0PaUkmXQLaegnZZ4PwU/K/doP/ZTcv7dz 9B8P17ej "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxdVEtIlFEUnoQoN710IVFRFo6JhtrDajSPb8fHOM7bhVQT4qIopNIggguF NC5ctGqRQQgZ7SbaxLj4F9NCiKBsMQVuJKJsctTMFhH2/+ecbzENDJfvP+d8 5zuPew/FrwWGClwu1wX775zyW2l8nElMxb6tkX6g175senJ4XfF26sumfdkP PxXvoo+JqUziM/yLacKGU9MriksY77+fU7yPykfj7tGGVcUHyZMs8ozUwb9U zknwHSGbLTP3F/nKqNgOSMVhL2c9lQnEV7DetzvhX0kvijzJ+QfQf4z1el8B VzOeGwdfDTnySheBa0WvBf7jUs956D9BtjU+Uwa+k6zvzxrwKbLl+K48Q3wd uR2+3A/Fp9nfMwO+M1Rvw2TthuKz5LQ7fRV8HvF/An31rHdxFvU2sL7BW7Cf Y//bFnAjn+YNMNElR9BhnY8hctIXbWbV3sT93NGk+k0TOftR0ov4ZtFTofpN M88r8XJJ7S2Sb0LrNS2sN96M+lu5vtYx2Fuln9eRv03sI8tqb5P9uvhd7e2i d7fmM+3CH0L+DpnXU9g7eN+S01/V3in67yg2nTyvbBXivcK/VfUYr5wB6Ovi egsnv6i9i/dl45NiVzf3K/Mb+btln7aBv4f11Cwif4/oPQp7b34/Ta/w3UD9 Psaxaujz8T4XbqK+PunnhvqbPqm/QPvp8st9Sqk/+aXfd+Hv5/rnn+v8LT/z uZcx/362BxcUU7/cv4fYh37ZlwHEC47lsO8BrndhVjEFZF+9iA+I/wHdT0vs qb3QH2S994aVn4L5+2+C0r8l5bOCXP/qTdzHEDnjTRUrP4VEb1rvkwmJviq9 f5bgwS3QH5b57YH+cP77Z8Lcr+FHqF+wewzxET6pHvojMv8hxEfy3yMrIvED eB+i8j6MIz76375HJf4y6o9KP97/0viYzO/dOv0DxMTMGw== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxdVE1IVFEYfemi2mRBgYSYRoRYM5Rplj/5jY4/44w68978iKsQEmqRbhQR obupXIu6KYKCWrRoVdDyQW5aFboqncIgKGgx0aKFi3rXc49474Hhcubcn+87 99zXODnt36ryPO9m9NMjUOn5thPhcVnMH1KvMU9+RDY3IjwgPy41GpPkJ2Ve o4q8Vl5rlLcNr8OYod4ge+edIT+L/b5z/jmMH8jPy/q7CH/ImyQei7BC3gx9 jvyiLD2M8Ig87sy/JL8rEd6SX0a/u+QtoqfHTrC+K5LWCKm3Oue1yW2N2S3D r8KPY+TtMqHx45Ph1zDukF/H/NPkHdh/ibwT/j8h73L0bvi3QH4D/Td/NrxH XjyPsEkudn1KsP8y603gfi5QT2C/p9R7cd5d6r2S0f6kqPdJl0bM+KP6sN8z +pWE/23GX5V08tOP82qp98uaRpz6AHjTF6MPoJ6v1AdFt7NRTX0Q43vqQ3Jn 78K4/5DY+U/Z+VYp1HeP+rBdrxp2+ksjD9PsP+3kKeOsz2Dcz/sI/HvJ9SOo 9xf1UTuvatT20xtDPma4/xjyF1DPyhv9PicMl6ztj8rC/1XDw6x9H17Ozr/k 7PescrYfYc65Px/93+d6H/UnmCcf8zsMD32c94/5DdD/YaNLgO/NT6OrAP1N cX2AfJ9iPvOo75WZL3nc91/zflQe9awbPcxL5SD3CnbepYD6Fll/AfUdYv8F nH+U/Rcd/4tOHot2HsOi41/JWV/C+05yfQnfq26uLzn5HUcePpblPyEi0r8= "]]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1lEtIVVEUhg82yCLQwF5UVhIloZJmN5+5fF+9Pu77ihVUkJAFNQl6Dc4s g0aCNpACCbVBgyAb1eCUjWpkOulS+cgKK9OiKHvdzj7/vxZcNt9d+997vc7e cfxM+ESaZVlH3Z9ZYUtVk89d808J/5Bt2a6lK6dLS8C11GtypuQbm1DOAg8q b8T+AeUtct5Yr/J2WTLmV86R2RnXAso7JcPYWuVd8mTMtYVX5FzpNJam/j1S WeFamXIe/MXKBfCfVt4r1/tdy1UulO6TrhUqFyGeTcr7kM+y1qNYrhjrmibv h/6R+n2If4PGe0BGhlzre0kuQb2uvSWXyiE33OTlb+Qy7/5jL76Ty7GG/5Ar xKTzMP8fuRLr7hT5IOJJKldJj4n3tu4Xb7U7/oJt8fJ71kS2qlGfst/0k1v1 /hrvvJVnVV+D/kyqvpb15n12LfQ5Gk+dfDX9HybbdV4+FW/UX++dt2K9VQ1/ vZjjxzLIVoOY8by5Wv0N4s3vHdU3yv1R13L0/kas/cv0++WCmcdbP+j3oz+O +pvksOnHKc2/Cflkaf7N6O9Wst3s1Xv+HvdbAe/+4t5f9Afkornvrp7fgvtv /KS/xZvXZDfjsVrx/U1zHuxWmTPz+HiR/jbUu4hst2Geej7T34581pDtdvhH FugPoh9PP4EliO9z8SP3BzEvIx/AThD3D8xTHxJz/JDvPfUh1Lv0HfUhr36d JZxvJySZpl6b56gPo9+pWerD8sXMQx7ZDov53AJdZCcs5WZ/NtmKyITpd5Hq I6jH+Az1EcTzgOxEsF4iW1HU9xxZojgvpPoo8qtWfRTxVqo+hu9/nepjqFeB 6mOIP6L6GPrdp/q4mPBGr6o+jvlepfo4Vh/fFyeO/qX0fUng/RwmSwL1HSTb CcSTIDsJvAdHVN+B961+Sv4DrFW7IA== "]]}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{0., 96.}, {0, 174353.84615384619`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6924205743468437`*^9, 3.692430390343502*^9, 3.6925381631590652`*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVEtoU0EUfSZiDYgUGrGi0vrBiIhY/5pqJ03SX9okzbdFITZQ3ESKmy50 MwgKVRRU1I3tVhBdVNwURZ+QgoJk46YiheLKRdRG00pt/SRzzl3EQnmcnLn3 nDlzZ7ZlR2LDDsuyzlb+q1/8zbddG58ZG3f/UPxBTTZ4JxuWvhCvVd7qD6l5 4no1UVk+MFsmditTf0vqGw0/4xG8RXlGs55RW+qb1XS4mC9sLhFvV8V8uBiY +k68U7krgs/fS/9d4FuF3436Cem3x6z3rlsk3gu9ez+J98Hvgqzfb+rDd4vE Lcb/1mHhD6hIVTAo/Q4a/fwZ6XfI5HNnSPBhfC+L3yP/6R81+bV8lX7HVJXO 5gQfVx8qcY09+EN8gvn/Jvaar3ri8AG3wl9hNfFJ07805yQ+hfwfyfo25LVB sIJ+HbFWRv+tS3gf8i5TX/tMvsv1Fvl2U/+pQKzbkY9zFXm/0bu5Irzf7Cee k/qA8dc4KHxAVe14LOGD6F/6S/2g6bf+pfAdPE+p7zD+LkWE7zT9Hp4X/53m q5t+Mc8u7G/NMvkuk2dudoV8N/Qv8jx0t8nH9VHOpwd53BD9HugN0a8VMue/ +EL6h+B3SvR70d9FPd2L/Xu53upDvytL5Ptwv67LfIWxn2ecHx3G+V4VPoL5 dPC+6Aj8jMh9jGLeTnO9imLenhLrKObnNvvbUczzJpnnftyfaanvh//MAuvJ vyK2gQtOYisGf+fYX8Vq/egY9tvM98GO4T3Iyv2P4zwek1dx3N8MsSYe5Ho7 jrxD8t4k4PcCeZWA3n3JK4F8/fRjJ/D+vZb8kqjf8Y31Sbw/Gb6XOon6d6Kf xHzVyX1PIc8m2X8K+9ko+aXg943sP1Xr10rX5qHStet1Gu/DnNSnUf9Z/A/w /Sirfw2JvnY= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVEtoU1EQTWsVi4JCu4hgqYoYKa0YP7UatTdt0n9emqT5IC40UlQoujII UryomxR3Cq7ShRUUCUqQrlwYJW66CLgybirYhaKBfrSpWH/JPXMWSSA8zjv3 zMyZmft2x68Gx+ttNtu58r/yxG+p+61VzOW3fVfyQhVzVtHTSbxZ+SsvLi8J 3q4cibij1EDcjGcLsV1NF5Kp2OKy4J0q0+TKNM2R36Uq+awz5PeocrhE/M6K 4L2qAh3jPwTvU81l+csI8X7o31Pfpj4kU4Xkk6LgdlU+7nImGe8A6o/Sz0FT X6GDvNPk//SG+BDquc58h43fxDPqjyD+JPmj0HeUBHeafBPra4KPod5Xq4K7 0B+L/HHj9/H8P8En4D/9R7AL+X41uIFP4vyDTYJPGXyxbqPg0ya+vX+D4G7o bxMr6Gckngb+nK8X3m3OZyI24d3G38MU9T3GX/o59T3V5229qKeV+l4z/9BC nfAe6GclnvaoqfL4Wnz05zU4NUO918zf1UZ9n9G3T0q9us/MvzFNvh/+vkr/ NLDDtS79HMA8J/4KP2D2PTfLfg/W+B/E/l1i/CHgb+SHjE4X6H8Y9+eLzFMP V+ezjZh+3HOSH8F85n4L74Pe/lN4n9mffCP3zcL+TgvWFva/QN6P+7ki+6z9 yFfi/o6iX1tk/9Qo9nVK9lODT56X81nwRS/3O4DnLcmnAoh/k/kCiLeD+gD8 O5k/CD93Basg+u0RrIPw94h6nLfe8X6GMN8uuf8qVB1Ph+D/gvjJhjDfNerH 0O+tgtUY5vmR9YPPlBZFL/wVfr/CiH+N+jCe96UeXYOzYcR7Tf8RzPcF/Ufg 9ynzR9C/VsFZ8LFV5o+inwtSn4ri+5pj/ijqPcv+RWvyx1D/jWX1Hy19s0Y= "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlEtIlFEUx7+soCB6MC6ECjKmJiLCqUxrNO+o4+jofDPOSyGEmIggjKBA okV9CzeKhD0WIdi2B2lJtBqJT7BoIS1yM0ERtOgBg6/MiB40c/7nv7CB4fL7 /uee1z33VmYvJM6UWZZ1qvgvrfgtNJQHJjwB75LRD6aE/k3kDaYwbRea68hb Tck+lyWXmxd2Yfr10DflCuPry/r6xsk7zNuB0fzA+UXlXVjPfVHebYrW2XvP qHsR7yn374W/Gsbbh3jbab9fVqeN9gdg7ycfNHfzA6Pd87Svknw2Vi8o+6We wBj5EPSRZeXD8P+S/o6YovXErWvMpxr5bKF+FPWU/1CuMbFSQZPkWunvRO13 5WPQb/5VPo58qqwgOKD9XKtcJ/GT9nrlejNYbO/7h+uUT0j8s/3kBuln/wzZ gGPKjkE9l6gHpZ7NzzW+E0S+kTLVGyXfRzllpxHxhqk3Sb8rotSbxP9sJfVm 5Du5RvVm1L2NesiUyv0Y4v4Q+tNDvUX837nB/S3i3xNWtsLoVz31sNQ7nfut /W3FPO75A3ZaJV52mP1uk+9OnvW3rfZnRUR3F+k/gn6eZH7t0o/PPdzfDv8e +u+Q+kfTjN+BeIPKVhT5jf9SPYr6bv9U3cb9m9J5cmzM91fOYwzxLuv8OjGc 3+MV1ePwP6Ns4rDvVXbiuH9eZTcu9fjm6L8T/qZ03k0n5v2BstOJ9brau//Z Wwn4H9P8TEL6u7Kk9k4C59+g9m5C6ss/4f1N4jyvqL1Jrr7PThL9dNW/m8R7 Nsf6U4h3Wu+fSaGfHxg/JfNv24yfwjrC9yEt89h7X9mk4a/A+pU/MX4a/Vtm /hmwxf0ZxEsxfgbncVHzczOY/1d8L7pkfna+U3+mC/rQvO7vwv6rzF/to3zP utGfN4vmH+Oypps= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVEloU1EU/VZF3antogsLdWgrNUhbNUZT25ehk2kzD3WjElARBEElIqL8 hQhx04XFnS4UjAsXhtqVA19IodC6EFyk4kpBCURMNdahdfh559yFKZTPybn3 nju+remz0RMNhmEct/9rX/xV+pvc+UZ37LPiDyqT7si8m10kXq9smO449o14 owqVC8HyrOAm2AfEvlnNBG2DXIl4i7Kj52+ufCFu1V+z7SfxNnWnmL1dvP6D eIeqyS1dlnjtGmfOfSLeCWxViDthf7pK7ND55lziv1vne6ZNcBfsP4h9t6qV n3/xlbhH1crz90q+ezTffUXs96pav568lPr3qQU7/ez8ErET/p3C70e/AoJd ul/pk9+JD6Ce0h/ig8jn0l9iN/o5t9oD3Kv5xTdriA+hnrLwfbqfzc+F70c8 11pipe2dE7Q3gTOPG8h7oNtikPegn33EhlfPM/Z+FXkv6nWKvk/7qy7GM326 3rvtEt+P+pdF3498spLvgO7XQ5fwA9i/i9QzBjU+dUv0B7W9Iyv5DWHecfbT HILe3DL7OaznteGo8MPIv/qb/IjGhR7hR9Afn8Q/rPU/vhZ94Ny05BeAvyl8 QMcxr8o8R5HPzArjj6ob9vq0TIr+WB0/pvfNvVn2Jwi9e9xHM4j7eyR8CPv6 S/gQ6r0v+xzGvhbJqzD2Y5r+Zhj17iJvhbF/XokfgX4rsYqgvnnGNyPQn+C9 WZG6+4z+z6so6r0m/lF8J8U/Cv1Xkn8M9WzivakY6n/K+zVjmOcUsVWHjTjq r/D9UHHorxP9OOZ3Qfzjet8bC/J+JDCvI7RXCcQ7z3hmoi7/hL7H8ZLkn8R7 kGJ8lYT+FN9fMwl9B7GV5H1L/inUv138U7gPQ/RT2Je3fC+tFL7P5H0fx3wf VNU/L0an4w== "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVDtok1EU/o0O7SA+0iH4KFXEiIi0VVs1fdw0faVt3k+tgwQVN6FDQBfv 0MGqVNBFkLq6KJKhIjgYJQ5SrIpLK74Qio/G2qitqK36537nG9pAuHw55zv3 +845N1syp6LHHZZlHbW/5ROf2dac05Nz3pxT8oOqsqHn0IzgCvUoWCwEXUXB axGv/i64Sk0OjUxUDs8LdqlyONfyQ/AmdX3CTjjzWXCNqTe+hvytqpx+5c1P wdvU+RGbUEE921HvSUnwDpXNuLPvx2cF7zQ4M/hN8C7wNxDvxrmOuNbENz/j /XXAAeqtV+VyN+qZv8foc3qJ9xr/9ybJ32f01c3QfwPwR/ppVHb3ioVJ4v3o x2XmHzCnHvwr+CDyKy0vsMfo+fBwleAmU7/0krgZet46BLegzrmVglsNzmeY r4yfFxslrhX407zPC/9nf6OO9qK/9xdFX5uZ9+OLK4Tfhv04LNjyYT9qpZ72 KZvtbqhmvN3kD8+T3474eurtkHmKH92hQuWGvCO/E/29+0/0daJ//dTfZfT5 n/P+LvDdf0R/N/zepr9uc392gP782M8HrO+HPhf724P6Y9TfAz0eybd6gQML wu/Fvi6yfh/2+QLjfabeUPMviQewvwuyHzqAedTwPQSxH1OCdXDZ/oaW7rcO LXuP4aX5Koz4KOuFofeOxPNhzHeM+x7B/roFqwjiTdSLePo1+RGj323xvUbB n/oi/Cj8jcr71lHMf478KPbpEv3HMM8U74+ZU/skX8dwf1z05GPo1zT9xzHv RnnPKo77VvP+OPpx+qvwJf+EYCuB/r2SfJWAvlviTyfg7wj5wOkB/n8lMe9+ 9j+JeTvYvyT4V8VvPonzKf9/UziPfRJ+Cvdf47xT0FcgX+Iu+k9j/0+W1H8L P65T "]]}, { Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVEloU1EU/eimLgQhXVRrQaUaFbHGqdWv9jVNxzRz8mMdoAYERUUXkvXH CduNCykKkoIbIyKFRHHjwo+kiChCu9AUBEGMaI1ah1ZwIf68c8+iLZTHyXn3 3HOH99dmzsaPLzEMY8j9r534m20fyZWHc6t+KvlBjbmw3DgnuE5Nu3B4iniF qjcLnsfWb8H1aiJcLb0amxXcoHH41hfBqxfxa/RpHyZepyLu9WqMes2If/FL 8AbEN/4QvBH8EOM3K9eO6fvL+C2L/G8Fvkm8Tdez7D71fLoes5n1b4f+G/I7 oH+RfnYqFxY8Rebbpf2fHqH+buXNZrzz/+ivVWVqPxSrgttUrdzSUurvgZ+r fwTv1frXZ6hnKjc6+/4p/e2Dvwnm3w8/Lbx/QNXm2RQi3679ZMfpX2k+N/UV 2FY4m+i3Q/sLPJD7dgf0Bpnfj3rufBPeD71jnHcn+pmX+uxO7T/joX4A8zjB /AHs13rBRhfy+xnfBf0zn4XvRv8qFeG7ke8U8/dAb1yw3QP+mtw3ehH/bEb4 XvTv3Hfh+3A+p78+6LXKfaMf/qffCd8P/uVH4YPgzzN/EPv96JPwA+jfa7lv D2A+y1lfSO9b4TLzh+B/UPpthKF3j/7DyF/+IHwEvJf5I9jfBvY/inlMSryK Iv8l6kUX3neE93F/Ytp/vk3mo2LYzyDnFYOfldJPJwa9UeaPY75PGB/H96TC +Dj8n2R+8OZb7kcC87sivEog/gj3NYH3cUj0nAT63cL4JHBJ+q2S0L8t+20n Ue9deT+O4Ifc/xTy2/Sfwnuto//Uwv11UnjfmxhvARfp35JT+mVb2Pcbct+x 0I8g33ca+3pBvicqjXpHBdtpBRvMn8b36Oi8xB+Ev/yc+g9YHtI2 "]]}, { Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdVDtok2EUjS7aTUgHBwUVa6QEramvmqa9adPm0TbvlwiiAcWhIDh06OJP xSHiIOimEUHwBQ7xRdHlFxIHETcxBV3UVtumtbY+BheT79wzxED4OP+5955z 7/fYXjibPLXe4XCcaPybK34r/WWnt+ycXhP9IPVKtB54TLxRqtHGl/c/FG+S m7ViKX+OuF1iDXr83orizeKaKLgmnpPfIpdKteLWD8TbpEkXnIzfIUb/NfFO 6Hf9VLxLmuF379PPbpkplmptjxjfCf0O1ncbv2/bmL9H2hvlX8wwv8vkF08S 70O9W8QeE+9NfVfcDX8Ty4r3g7/O+AOod4x6B01/nxL0d8j0U3Gz3mFpppcj q4p7MM+PzD9i5vd7lbzX6F89T9yL+T4h9mF/LrB+n6lX6+Y8+uFvgVjA96g/ S8x8XZV55f3wV1Js+dG/n3oD2L912r81AD8bFpQfhN6rr8oPYj1OPoD6F5eU D2A+LxeVH2qNt4bM+SllNN4xDP1e3Q9rGHo++g/+5z+I/qZZPwTeM6d8CPqL X5QPI95P/TD6G+f+R8Dvpf8I/MxrPccI5jvJ/BGseeqP4vwskx+FfoD8GOp9 5vzGoH/lm/JRxD+lfhT9d3A+MeRX68rHsL5j/Tj28476FcVTjI9Dz6fnxY6j nwfc/wTWKT2vksD9mtV4K9F6H23EW2Hel2Tr+yBJzOMhz2MSeme0H1v5o5x/ Cu9DSOMlhfUa9cFXJtWvncL9SNN/Gu+JR7Gkcd/mtB8r3fr+2WnM9wb1MziP t6mfQb0++s9gnkt6H+0M6lX5HmTNfOqXlZcs+uuk/yzquamfxX6e/qP5Oczz Df3nUO+Zng8rh/4tzj+H9zf4S/PzqPd3Tf4B71jDZA== "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0., 96.}, {0, 185076.92307692306`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Prubeh spotreby pro Rijen - Prosinec\"", TraditionalForm], PlotRange -> {{0., 96.}, {0, 185076.92307692306`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"Po\"", "\"Ut\"", "\"St\"", "\"Ct\"", "\"Pa\"", "\"So\"", "\"Ne\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.363898, 0.618501, 0.782349], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24259866666666668`, 0.412334, 0.521566], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.363898, 0.618501, 0.782349]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.363898, 0.618501, 0.782349]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.363898, 0.618501, 0.782349], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6924205743468437`*^9, 3.692430390343502*^9, 3.692538163453081*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"max", "=", RowBox[{"Max", "[", "prumVsedLetDen", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dataLetoVsed", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "96"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dataLetoVikend", " ", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "96"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dataZimaVsed", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "96"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dataZimaVikend", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "96"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"utvareni", " ", "dat", " ", "pro", " ", "DateListPlot"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"96", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dataLetoVsed", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"2006", ",", "10", ",", "10", ",", RowBox[{"Floor", "[", RowBox[{"i", "/", "4"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "4"}], "]"}], "*", "15"}]}], "]"}], ",", RowBox[{"prumVsedLetDen", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"96", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dataLetoVikend", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"2006", ",", "10", ",", "10", ",", RowBox[{"Floor", "[", RowBox[{"i", "/", "4"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "4"}], "]"}], "*", "15"}]}], "]"}], ",", RowBox[{"prumLetVikend", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"96", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dataZimaVsed", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"2006", ",", "10", ",", "10", ",", RowBox[{"Floor", "[", RowBox[{"i", "/", "4"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "4"}], "]"}], "*", "15"}]}], "]"}], ",", RowBox[{"prumVsedZimDen", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"96", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dataZimaVikend", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"2006", ",", "10", ",", "10", ",", RowBox[{"Floor", "[", RowBox[{"i", "/", "4"}], "]"}], ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "4"}], "]"}], "*", "15"}]}], "]"}], ",", RowBox[{"prumZimVikend", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prumVsedZimDen", "=", RowBox[{"RotateLeft", "[", RowBox[{"prumVsedZimDen", ",", RowBox[{"-", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "dataLetoVsed", ",", "dataLetoVikend", ",", "dataZimaVsed", ",", "dataZimaVikend"}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{ "PlotLabel", "->", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", "\"\<[ W ]\>\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "cena", " ", "za", " ", "spotrebu", " ", "pro", " ", "prumerne", " ", "dny"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6895223010134974`*^9, 3.689522328035185*^9}, { 3.6895223602416286`*^9, 3.6895223839193163`*^9}, {3.6895225714372067`*^9, 3.6895226197369556`*^9}, {3.689522665521639*^9, 3.68952270873701*^9}, { 3.6895227561375093`*^9, 3.6895227906339025`*^9}, {3.6897649269493456`*^9, 3.689764928531917*^9}, {3.689764970549386*^9, 3.689764977880054*^9}, { 3.6897650589625854`*^9, 3.689765237885641*^9}, {3.689765332449955*^9, 3.6897654778576007`*^9}, {3.689765538362445*^9, 3.6897658680698695`*^9}, { 3.6897659051601424`*^9, 3.6897660495904703`*^9}, {3.689766085562046*^9, 3.6897661221159334`*^9}, {3.6897661755714207`*^9, 3.689766185857974*^9}, { 3.6897662519349055`*^9, 3.6897662883910646`*^9}, {3.6897663307415667`*^9, 3.689766336576107*^9}, {3.6897663756667233`*^9, 3.689766402027608*^9}, { 3.6897664466805162`*^9, 3.6897664922258935`*^9}, {3.689766551881605*^9, 3.6897665662693043`*^9}, {3.689767021956244*^9, 3.689767059491057*^9}, { 3.689767108894783*^9, 3.689767114033046*^9}, {3.6897671561440125`*^9, 3.6897671902437105`*^9}, {3.6897672230889564`*^9, 3.6897672303663893`*^9}, {3.689767273047793*^9, 3.6897672840236406`*^9}, { 3.6897673362542944`*^9, 3.6897673365066957`*^9}, {3.689767374352488*^9, 3.6897674127691216`*^9}, {3.689841477909625*^9, 3.68984153465007*^9}, { 3.689841575094223*^9, 3.6898416350206475`*^9}, {3.6898573883813076`*^9, 3.6898574976485677`*^9}, {3.6898575609372*^9, 3.6898575819013915`*^9}, { 3.6898576295211334`*^9, 3.689857638611647*^9}, {3.689857942165024*^9, 3.6898579427410555`*^9}, {3.689858030385073*^9, 3.68985821862286*^9}, { 3.689858513046713*^9, 3.6898586032978816`*^9}, {3.6898586692496605`*^9, 3.6898587281790323`*^9}, {3.6898587647111254`*^9, 3.6898588399064417`*^9}, {3.689858886219083*^9, 3.689859003485359*^9}, { 3.6898590854260597`*^9, 3.689859115167762*^9}, {3.689859167872772*^9, 3.689859187446891*^9}, 3.6898592692245855`*^9, {3.689861528090639*^9, 3.6898615847908854`*^9}, {3.689861652555769*^9, 3.6898616570070224`*^9}, { 3.689861701264557*^9, 3.6898617751057854`*^9}, {3.6900409392082963`*^9, 3.6900410944078064`*^9}, {3.6900411725835238`*^9, 3.6900411965410757`*^9}, {3.6900412853937454`*^9, 3.6900412903860846`*^9}, {3.6900413345880713`*^9, 3.6900415117861648`*^9}, {3.6900415453867087`*^9, 3.690041572027893*^9}, 3.6900416294058084`*^9, {3.6900416615267763`*^9, 3.690041727828416*^9}, { 3.690041794850521*^9, 3.690041955721222*^9}, 3.6900420590240355`*^9, { 3.6900425942902403`*^9, 3.690042773466941*^9}, {3.69004286321736*^9, 3.690042971525137*^9}, {3.69004312505342*^9, 3.690043160619529*^9}, { 3.690043205790699*^9, 3.6900432067243896`*^9}, 3.6900432496513023`*^9, { 3.690043291856983*^9, 3.6900433492566204`*^9}, {3.69004387213568*^9, 3.690043880253454*^9}, {3.690043928181795*^9, 3.69004396436242*^9}, 3.6900440193177395`*^9, 3.690044088748662*^9, {3.690044152745781*^9, 3.690044163038062*^9}, {3.690044260244749*^9, 3.6900443159444323`*^9}, 3.690044364758325*^9, {3.6900444014642673`*^9, 3.6900444019640465`*^9}, { 3.69004468339198*^9, 3.690044732404433*^9}, 3.6900447820440807`*^9, { 3.6900448618202047`*^9, 3.6900448727507334`*^9}, {3.6900451731350574`*^9, 3.690045205155377*^9}, {3.6900454585921307`*^9, 3.690045479732403*^9}, { 3.6900455715461473`*^9, 3.690045617892273*^9}, {3.6900456702210207`*^9, 3.6900457423574977`*^9}, {3.690045797419351*^9, 3.6900458143527436`*^9}, { 3.6900458743377266`*^9, 3.6900458788909903`*^9}, {3.690045912416546*^9, 3.690045985462886*^9}, {3.6900460586302423`*^9, 3.690046135623068*^9}, { 3.6900461838582067`*^9, 3.690046235798563*^9}, {3.6900471664481544`*^9, 3.690047166796175*^9}, {3.6900472195711994`*^9, 3.690047219937217*^9}, { 3.6900473740860476`*^9, 3.690047382834016*^9}, {3.6900475295470676`*^9, 3.6900475420477924`*^9}, {3.6900475905965595`*^9, 3.690047616927081*^9}, { 3.690047958358344*^9, 3.690047969034966*^9}, 3.690048133364769*^9, { 3.6900484282015467`*^9, 3.690048463827587*^9}, {3.690048829089778*^9, 3.69004882928671*^9}, {3.690050680409463*^9, 3.6900507186754694`*^9}, { 3.6900507825698504`*^9, 3.690050838626442*^9}, 3.6900533389636183`*^9, 3.690053656847224*^9, {3.6900539644411993`*^9, 3.690053968357467*^9}, { 3.6901277138229923`*^9, 3.69012771502606*^9}, 3.6901279266658134`*^9, { 3.6901279826982107`*^9, 3.6901279843613057`*^9}, 3.6901301677327237`*^9, { 3.6902219354986167`*^9, 3.6902219698275023`*^9}, {3.6910809977298927`*^9, 3.6910810271080885`*^9}, {3.6910823470403986`*^9, 3.691082348325472*^9}, { 3.69127244026186*^9, 3.691272501791382*^9}, 3.691707651089283*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9lHtMzWEYx38yo8bSViyU1WyylZHW0mWrmckOQ/2RFUObTEzYmGL28wdq w2grrGUaXf6oRKeLOrqd7vfTOWVCd1mloglFHc/32e/p2Vr7nM97ed7neX+v W3Rc2GkbRVFO0h/+K4r6MHfDWIiliyK0P5h+WJZHvNmVYhVYvQQ+oKOw9sEP gb0QZrAali+cwd6YL+PT2O96RXwNkcz+Jfg7IpS9YwHx0CCFjv1tsD3Cgf0s uNZIMfkZPuY1cSTChn0POCiQwp/n73sj3od9yRvx59l7FBI/TqXwYP8EHHuW Yid7W73k48w+Xi/nmeP6jIPvImIG4COLZH41+5YiyX898lUDiomzMylSPsHn Fku97n2B31RCHEXp9t74CX+/RNv/1IdZ+AUwtyrsH/yFUmIcx+C1CN9XKn6r Ff7QW8mnF6xWghORbw7GKzvKtPHq0QX452Xa+Vr2gxWHcqmP/1/4W0t8kPef KdfWW3mR50cbpD8Wnm82LNWb89vzTua7c3568Az6n8X5banQzhM4zD6lQltv +TqF8lRXVBJjeaM9WLkKxvV8Zsd+tFLuby7Pj6giLtJTuPP+DVVSn9Q5eL9q 4njcxxe/4XOqpT9V7J1riI+hH+f4/Ek1ch5HPv98jfTXBazGGrV6jxVivPLR qO3vkzwPr6slTsB+Bby+oVb2T/8D71mn3dfeWOSjpNfJ9zeA+6CuqScewX2s mYa/WS/19garU/VynxKn4E80yHlWg9WOBvHZk/DBjdKP5m/wBY3yfU5PwLs1 yX3JHod/1CT7p43B2zQTY/lM36/wl5ul3rtH4YebtfpF+vH9Dm8hXot6bRyB r22RfluH4H1aiX/gPniClUwwPjddDHunNuIAjHdlfwdsRr+92f9qk3qYBuHP tEs+5WD1fbv0/zr70A6p7xX2pR2y3hH22zrlfCHsn3ZKvkHs7Uzy/TuxTzBJ vbaznzBJ/uHso7qk3ynsW8FIT5/EPtAs99uWfZ5Z8vXl98XFIv2z8vvywCLv Zxa/z4sWqW8G+7huySeCfX+3vAfH2R/ukfdtb3/wf7vuf1I= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxVlHtI01EUx69GhEGFkFDSA6E/7KEEFkQZTAoqFAr9I1h/FIOM/MNVkJhE /fpDsz+KioyiBxUZET6mbm752tzm5l7ObWqUqWgUWRFWVFD0uOcLRzgHxvju c++555z7vcuxWEuPpiuljugPfStlXG3Kni2amdZxd8Kkf0hr1noNRTVp4yTp VFJHHfgM6WUUFvDSFq2rKdLBfaTtFBOviRe0ao2jSsAft/J5a7F/uY3zvaX1 qtbG6+PY/52036fjG3h5m9b5eTpugI+1Ma8C39Oudf1FHXfAne1ivcrt0PrL nA4X+K0O7vc3eIZda1qel4n6zpAupvCAf7CL8wyzQ+vjFKfHiUccPI+lpI0d nVqbKd6/JN7Uyf1NkzZWOXl9NvhlJ+evB//j5PnfB690ST7p4vnVgO9/zv1v eEXcTfpJo44UabW5S9b3oIvzX0f9md18PxvBL3RzvofgX7v5vEpwS4/WJTSf feAp0oUUeZjPrl7O9wjzs/fy/Ldivuv6pH8a+vi8FeAL3VrfpMgHr5rXuZPE 37m5ninwgx6tqZ3kAvCgh+cdAt/Wr3UFLgz5n/ZL/6/0Sn9f8nJ958F/eUW9 RoVP9jfuYz9Y0X+xX/hJ9fjl/k0Dwu/q3gDP7xn2LwlwvZ/AzwWEX43PATFP dTjI/jiB/PEg+68M3DSotYPepxncNijnkxPi+TeAXwuJ+1DpYen/U2HxntWb sJiHURaR9+ePcP+14FuiXH8R/NMY5fXb4a+sGJ/3D/6ti3H/i8B/xPj/Zhb8 2BD3Vw7+Yoj9nYX8e+NcXwvehyvO9/0T72f9MNfjB79Nem5eq8UJ4XejJsH1 nUX+jwmuLw39HUry+RnoP5qU8y9MCT+q5pTwo7F6RM7vyojc/3eE3/ducOso /1/tBJ8alf49MMZ+GJ4w/Qcwu5bx "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9lFlIlFEYhn9tLBSMTL1omQtpcQIjWy6E8cJQaipSsSKri2zaJCQpwpYL +YUyxkgMEYqYEjIM0nRcchmX1HFcx8m1qbDCocicokzH0tTO93I+L0Seec/7 bef7T5gxPemsr6IoKeKP/iuKmleydnz3d1u8J65uMkb84FMqGErAL8HqJeK3 JrPL30CsjC1x9G/Sk16wX0OstBH7UIA/8O8sE3zH7DKZn/wkvYg4wxieMRZB +dSQcsEkJz+fIv3WErsRf5rYEqy3BI8i/zmLYGE3Fi9H/BEL559A/XsrBFfQ +cPw1xC3x3tsfW74dZWCEzzC8An++5Wsp8DvX8Xxp+C/XiXnoSSivm/EOtGA 10GsHq8WfJX6yZwmvaeaz2+aIV3/UnCiyJf20kt6CXGoKM9aQKyurxGcQw1/ XiD9bo2MZ9Qukj5fI+tNm11GcS/WCraLenMNfoLVD8QhIt5ckIb0hDp5P/ua 6bzaTBwtBrhdgR5ZL5jav3kbeiGxngZc4Et6kJX7maF61CyrjG/V+JA+aeV5 H6HzqrFBsIvyVUAfbJDzjNcRq7GNsr/RHOhVjXIftMfg39gk6zX1IH9BE+9f Hfx+zTLeymz4M5r5/vZD/0J8mu5rSCH96Cu5P65czK+DOTl1juYb1cL3Xf+P 9Gctsn5TFOa/plX2Z2uF39TK++RG/FliQmsq8l9ok/PUuKC/b5P7E74B/gM2 nr8O8Rtscp76rfOkR7Rzv8FUj2Jul+ctzr+kB9oFl1PCEuxXpp3Pe4jVH3au /wr282QH91+E/XV2cP4d0GM6BZ+h+q7BX97J8zMjflgX7+8i9vteF9e7Grpv N+ePhX65m98DLeK7u2X84jzkP9TD+70H74OtR+YLXwF9Vy/XO43v7ynxY7qv cbwPoQ7ex0D4s5d4CrrXwftYCP/5PsHvqJ4s1PemT74f+V74DU75/WY8hL/W yfdtgH/La65vM/QHxI+onhi8HwH9ct7+p/B+3OiX9x+3CvpEv9yX/HXwnxjg +Uchf+8An89C/9GDPM9I6KWD/P1/hV87xPEOor7cId5/B72n6gIxles1In/6 MN9nGfwfh/n72ob4iSP8/Y1MxvwHH3B71Q== "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxVlHtIk2EUxj8FCYMK06AkAytSQ8EuUDADraAk0tAgLcRa2KBCsYt2ofii kiY0KggMWhRWSmg5My9tOi/zMp2abtoqLFghqUvTdEFh9p6H9/yxP0SePe85 53fOe743UpuXlhOoKMpR8Uf/FUW9UxE+lvTIrTdmjM0kih8CKoVuT/HaDLpZ odV80qleW4rX9Yt8D+kPeqNb/43Oq2kvhS4W0lj6k/w21hG3psjf8kro6AJt VMGOafKfktaYQjX52+i8GlYlNFAMqH+TtMjmts9TPXWOdJgIMGvhnzBJnlg9 4odNkrdvGfj2VAtdHaoxOe+Bv65a8iY3kFaiX0ttLwJ/CWnCW+tB/uAa5m1G /os13E82+MdJC1dbtgH5D7+RfH9nkL+HtMBJOV2OeE2t0FGUb+oH+RW18rym jPKpq+uEThDStNlH/m3SNG5bLvLP1/H5J+DLrZe8Hgvm87le8mVdgJ/aIM9f bkZ/1gY5X9UBP/6t0McJaB3u5zFpKh+64CU/xCznuTQJ/NfMcj9W7kf8jJl5 NoJfa5H3pa8ZJ99p4XrF1K+6q1Hyanei/5pG2d/uQvjrm3ieZ1H/fhP7+ZPk B1l5v45NkF9gZd4QqqeOWjn/QdQ/1Mz39Rx+Z7PcN1Ppd/K3tzD/FdJqeYu8 L28c4le1cv4g4lH1rbyfaeD70yr7DTaMkn+yTe6L7yNp5VObnJf7N+rvs/E+ LUJ+i03ybPKgfmw788bAN7b7zVNd0sH5zqH/q6wz4sE32SH3OXgB/WV38jx9 dF7t7+T+A2meSmIXf09m1K/q4nlfR/5Iu+zf+QL3f9cu80VN4v4Du6WfPoL9 OtPN318Jvo+v3bwvmYhP72HeKfi2HtnviAX7s9XB+5oM/5mDz6/Bfq7oZd5w 8Bf1St4bOuT39frvv66P5zeO/O/7ZP/T5/E+7e0Xmq7XHIb89f3Ma8P7EfOO +eLw/T1gnRUAvsUDfH/Lkf/SgP/7NzEg56V7CL4jgzy/QsQ7BuU+JSbAT3Dy /ecgvtLp9x6pES6Oz8T7YHDx+1CE+H8uv31X8oY4/hT4vgzxPAbnyD8wzPc3 MJv4H9RdkE0= "]]}}}, {}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694281*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {3.3694281*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"[ W ]\"", TraditionalForm], None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Pr\[URing]b\[EHacek]h spot\[RHacek]eby pro pr\[URing]m\ \[EHacek]rn\[EAcute] dny\"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox[ TemplateBox[{ "\"L\[EAcute]to-v\[SHacek]edn\[IAcute] den\"", "\"L\[EAcute]to-v\[IAcute]kend\"", "\"Zima-v\[SHacek]edn\[IAcute] den\"", "\"Zima-v\[IAcute]kend\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6924205757530837`*^9, 3.6924303918685884`*^9, 3.6925381992631316`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"cenaZimVikendBB", "=", "4223.69"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaZimDenBB", "=", "6604"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaLetDenBB", "=", "4425.28"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaLetVikendBB", "=", "1924.57"}], ";"}]}], "Input", CellChangeTimes->{{3.691707659903659*^9, 3.6917076832003255`*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"denCtvrthodiny", "=", RowBox[{"dataLetoVsed", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ "vektor", " ", "dennich", " ", "hodnot", " ", "pro", " ", "vykreslovani", " ", "DateListPlot", " ", "grafu"}], "*)"}]}]], "Input", CellChangeTimes->{{3.6912628224470854`*^9, 3.691262848951605*^9}, { 3.691307232501713*^9, 3.6913073077996907`*^9}, {3.6917375327669926`*^9, 3.6917375773634295`*^9}, {3.6917376143701916`*^9, 3.6917376163182907`*^9}, { 3.691737739460713*^9, 3.6917377728008056`*^9}, {3.691738486669171*^9, 3.6917386617191253`*^9}, {3.69173906863945*^9, 3.6917392428406143`*^9}, { 3.691739355093583*^9, 3.6917393572092686`*^9}, {3.691739424879964*^9, 3.6917394265663333`*^9}, {3.691739492989713*^9, 3.691739506174019*^9}, { 3.691742515056911*^9, 3.6917425290594807`*^9}, {3.6917540858795652`*^9, 3.6917540989079137`*^9}, {3.6917541784121437`*^9, 3.691754222930029*^9}, { 3.69175566103543*^9, 3.6917556741099195`*^9}, {3.6917557599309797`*^9, 3.6917557709638205`*^9}, {3.69175583992855*^9, 3.691755841634712*^9}, { 3.6925382500130377`*^9, 3.692538313232667*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "kolik", " ", "muzu", " ", "maximalne", " ", "vybit", " ", "z", " ", "baterie", " ", "pro", " ", "zachovani", " ", "SOC", " ", "jako", " ", "na", " ", "zacatku", " ", "prumerneho", " ", "dne"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"muzuDobit2", "[", RowBox[{"data_", ",", "n_", ",", "Pmax_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "NTPozice", ",", "NTHodnoty", ",", "Pdisponibilni", ",", "PdisponibilniNT"}], "}"}], ",", RowBox[{ RowBox[{"Pdisponibilni", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", RowBox[{"Length", "[", "data", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "97"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"Pdisponibilni", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"Pmax", "-", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "0"}], "}"}], "]"}]}]}], "]"}], ";", RowBox[{"PdisponibilniNT", "=", RowBox[{"Pdisponibilni", "*", RowBox[{"Boole", "[", "sablonaDen", "]"}]}]}], ";", RowBox[{ RowBox[{"Total", "[", RowBox[{"Take", "[", RowBox[{"PdisponibilniNT", ",", RowBox[{"{", RowBox[{"1", ",", "96"}], "}"}]}], "]"}], "]"}], "/", RowBox[{"Length", "[", RowBox[{"Take", "[", RowBox[{"sablonaDen", ",", RowBox[{"{", RowBox[{"1", ",", "96"}], "}"}]}], "]"}], "]"}]}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6917424374108176`*^9, 3.691742498921136*^9}, { 3.6917425407320595`*^9, 3.691742612424427*^9}, {3.6917438277564697`*^9, 3.6917438381757293`*^9}, {3.69174387239849*^9, 3.6917439352358584`*^9}, { 3.691754239498378*^9, 3.691754254201723*^9}, {3.691756536559084*^9, 3.6917568507919245`*^9}, {3.6917569191012983`*^9, 3.6917569312192297`*^9}, 3.6917569671988635`*^9, {3.691757008608507*^9, 3.691757011485224*^9}, { 3.6917570664699917`*^9, 3.6917572279309387`*^9}, {3.6917573928420715`*^9, 3.691757395834681*^9}, {3.6917574316753955`*^9, 3.6917574330748315`*^9}, { 3.691757496257676*^9, 3.6917575274381456`*^9}, {3.6917576026122804`*^9, 3.6917576266158953`*^9}, {3.6917583694026012`*^9, 3.691758371596735*^9}, { 3.691758504433228*^9, 3.6917585202771053`*^9}, {3.6917590103547277`*^9, 3.6917590141535006`*^9}, {3.691759263843178*^9, 3.6917592852816133`*^9}, { 3.6918635560032473`*^9, 3.691863573600935*^9}, {3.692538325805378*^9, 3.692538378334386*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Vypocet optimalni baterie", "Title", CellChangeTimes->{{3.6895219881999288`*^9, 3.689521994639513*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany_", ",", "EnergieAkumulaceMax_", ",", "data_", ",", "dopocet_", ",", "diskont_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "krokPeak", ",", "krokBase", ",", "krok", ",", "pocatek", ",", "nEnd", ",", "WaccuEnd", ",", "WbaseEnd", ",", "WpeakEnd", ",", "penaleEnd", ",", "cenaEnergie", ",", "cenaCelkem", ",", "prubehNabijeni", ",", "vystup", ",", "PmaxVybijim", ",", "cenaNT", ",", "cenaVT", ",", "cenaPrikon", ",", "cenaBaterieJ", ",", "cenaSystem", ",", "penaleStart", ",", "usetreno", ",", "cashFlow", ",", "NPV", ",", "maxPrikon", ",", "a", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"penaleStart", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "overeni", " ", "aby", " ", "nepouzivla", " ", "program", " ", "zapornou", " ", "hodnotu", " ", "baterie"}], ",", RowBox[{ "zaporny", " ", "vykon", " ", "nez", " ", "je", " ", "mozny", " ", "a", " ", "jine", " ", "blbosti"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EnergieAkumulaceMax", "<", "0"}], ",", RowBox[{"penaleStart", "=", RowBox[{ RowBox[{"-", "EnergieAkumulaceMax"}], "*", "1111111111111111"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"PmaxSjednany", "<", "0"}], ",", RowBox[{"penaleStart", "=", RowBox[{ RowBox[{"-", "PmaxSjednany"}], "*", "1111111111111111"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"1.", "]"}], "]"}], " ", "\[IndentingNewLine]", "rozepsana", " ", "funkce", " ", "co", " ", "delat", " ", "kdyz", " ", "je", " ", "nizsi", " ", "tarif"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"krokBase", "[", RowBox[{"{", RowBox[{ "n_", ",", "Waccu_", ",", "WodebranaBase_", ",", "WodebranaPeak_", ",", "penale_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "Ppozadovany", ",", "Pdisponibilni", ",", "EnergieCoMuzuDobit", ",", "WodebranaPeakNew", ",", "WodebranaBaseNew", ",", "nNew", ",", "WaccuNew", ",", "EnergiePozadovana", ",", "penaleNew", ",", "PmuzuVybit", ",", "WakuMax", ",", "PmaxNabijim"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"WodebranaPeakNew", "=", "WodebranaPeak"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nNew", "=", RowBox[{"n", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ppozadovany", "=", RowBox[{"data", "[", RowBox[{"[", "n", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"WakuMax", "=", RowBox[{ RowBox[{ RowBox[{"3.3", "/", "6.7"}], "/", "4"}], "*", "EnergieAkumulaceMax"}]}], ";", "\[IndentingNewLine]", RowBox[{"EnergiePozadovana", "=", RowBox[{"ctvrthodina", "*", "Ppozadovany"}]}], ";", "\[IndentingNewLine]", RowBox[{"Pdisponibilni", "=", RowBox[{"PmaxSjednany", "-", "Ppozadovany"}]}], ";", RowBox[{"(*", RowBox[{"JAKOU", " ", "ENERGII", " ", "MUZEME", " ", "DOBIJET"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PmuzuVybit", "=", "WakuMax"}], ";", "\[IndentingNewLine]", RowBox[{"EnergieCoMuzuDobit", "=", RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"Pdisponibilni", "*", "ctvrthodina"}], ",", "WakuMax", ",", RowBox[{"EnergieAkumulaceMax", "-", "Waccu"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{"Pdisponibilni", "*", "ctvrthodina"}], ",", "WakuMax", ",", RowBox[{"EnergieAkumulaceMax", "-", "Waccu"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "vybere", " ", "minimum", " ", "z", " ", "mozne", " ", "dobijene", " ", "energie"}], ","}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EnergieCoMuzuDobit", ">", "0"}], ",", RowBox[{"(", RowBox[{ RowBox[{"WaccuNew", "=", RowBox[{"Min", "[", RowBox[{ RowBox[{"Waccu", "+", RowBox[{"EnergieCoMuzuDobit", "*", "\[Eta]Accu"}]}], ",", "EnergieAkumulaceMax"}], "]"}]}], ";", RowBox[{"WodebranaBaseNew", "=", RowBox[{"WodebranaBase", "+", RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"EnergieCoMuzuDobit", "+", "EnergiePozadovana"}], ")"}], ",", RowBox[{"PmaxSjednany", "*", "ctvrthodina"}]}], "}"}], "]"}]}]}], ";", RowBox[{"penaleNew", "=", RowBox[{"penale", "+", "0"}]}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"situace", ",", " ", RowBox[{"kdy", " ", "dobijim"}], ",", "OK"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"EnergieCoMuzuDobit", "<=", "0"}], "&&", RowBox[{"(", RowBox[{"Ppozadovany", "<=", RowBox[{"PmaxSjednany", "+", "PmuzuVybit"}]}], ")"}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"WaccuNew", "=", RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Waccu", "-", RowBox[{"ctvrthodina", "*", RowBox[{"(", RowBox[{"Ppozadovany", "-", "PmaxSjednany"}], ")"}]}]}], ")"}], ",", "EnergieAkumulaceMax"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"WodebranaBaseNew", "=", RowBox[{"WodebranaBase", "+", RowBox[{"Min", "[", RowBox[{"{", RowBox[{ RowBox[{"PmaxSjednany", "*", "ctvrthodina"}], ",", RowBox[{"ctvrthodina", "*", "Ppozadovany"}]}], "}"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"penaleNew", "=", RowBox[{"penale", "+", "0"}]}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{ "EnergieCoMuzuDobit", ",", "nNew", ",", "\"\\"", ",", RowBox[{"WaccuNew", "/", "3600000"}], ",", "\"\\"", ",", "Waccu"}], " ", "]"}], ";"}], "*)"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"nedobijim", ",", " ", RowBox[{ "ale", " ", "dokazu", " ", "vykon", " ", "pokryt", " ", "z", " ", "nasmlouvaneho", " ", "a", " ", "z", " ", "akumulace"}], ",", "OK"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EnergieCoMuzuDobit", "<", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{"Ppozadovany", ">", RowBox[{"PmaxSjednany", "+", "PmuzuVybit"}]}], ")"}]}], ",", RowBox[{"(", RowBox[{ RowBox[{"WaccuNew", "=", RowBox[{"Waccu", "-", RowBox[{"ctvrthodina", "*", "PmuzuVybit"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"WodebranaBaseNew", "=", RowBox[{"WodebranaBase", "+", RowBox[{"ctvrthodina", "*", RowBox[{"(", RowBox[{"Ppozadovany", "-", "PmuzuVybit"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"penaleNew", "=", "1000000000000"}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"situace", ",", " ", RowBox[{ "kdy", " ", "aku", " ", "a", " ", "sjednany", " ", "vykon", " ", "dohromady", " ", "nepokryji", " ", "potrebu"}], ",", " ", RowBox[{"je", " ", "penalizovano"}], ",", " ", "NEZADOUCI"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "overeni", " ", "aby", " ", "nepouzivla", " ", "program", " ", "zapornou", " ", "hodnotu", " ", "baterie"}], ",", RowBox[{ "zaporny", " ", "vykon", " ", "nez", " ", "je", " ", "mozny", " ", "a", " ", "jine", " ", "blbosti"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Waccu", "<", "0"}], ",", RowBox[{"(", RowBox[{ RowBox[{"penaleNew", "=", RowBox[{ RowBox[{"-", "Waccu"}], "*", "1111111111111111"}]}], ";", RowBox[{"WaccuNew", "=", "Waccu"}], ";", RowBox[{"WodebranaBaseNew", "=", RowBox[{"WodebranaBase", "+", "EnergiePozadovana"}]}], ";"}], "\[IndentingNewLine]", ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"PmaxSjednany", "<", "0"}], ",", RowBox[{"(", RowBox[{ RowBox[{"penaleNew", "=", RowBox[{ RowBox[{"-", "PmaxSjednany"}], "*", "1111111111111111"}]}], ";", RowBox[{"WaccuNew", "=", "Waccu"}], ";", RowBox[{"WodebranaBaseNew", "=", RowBox[{"WodebranaBase", "+", "EnergiePozadovana"}]}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EnergieAkumulaceMax", "\[Equal]", "0"}], ",", RowBox[{"(", RowBox[{ RowBox[{"WodebranaPeakNew", "=", "WodebranaPeak"}], ";", RowBox[{"WodebranaBaseNew", "=", RowBox[{"WodebranaBase", "+", "EnergiePozadovana"}]}], ";", "\[IndentingNewLine]", RowBox[{"WaccuNew", "=", "Waccu"}], ";", "\[IndentingNewLine]", RowBox[{"penaleNew", "=", "penale"}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "nNew", ",", "WaccuNew", ",", "WodebranaBaseNew", ",", "WodebranaPeakNew", ",", "penaleNew"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"2.", "]"}], "]"}], " ", "\[IndentingNewLine]", "rozepasna", " ", "funkce", " ", "co", " ", "delat", " ", "jestli", " ", "se", " ", "pohzbujem", " ", "ve", " ", "vyssim", " ", "tarifu"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"krokPeak", "[", RowBox[{"{", RowBox[{ "n_", ",", "Waccu_", ",", "WodebranaBase_", ",", "WodebranaPeak_", ",", "penale_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "nNew", ",", "WaccuNew", ",", "WodebranaBaseNew", ",", "penaleNew", ",", "Ppozadovany", ",", "WdrzimSchovanou", ",", "WakuDisponibilni", ",", "Wpozadovana", ",", "WodebranaPeakNew", ",", "PmuzuVybit", ",", "WvybMax", ",", "MaxWOdebrana", ",", "zbyvaPeakN", ",", "WakuMax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nNew", "=", RowBox[{"n", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ppozadovany", "=", RowBox[{"data", "[", RowBox[{"[", "n", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Wpozadovana", "=", RowBox[{"Ppozadovany", "*", "ctvrthodina"}]}], ";", "\[IndentingNewLine]", RowBox[{"WodebranaBaseNew", "=", "WodebranaBase"}], ";", "\[IndentingNewLine]", RowBox[{"WvybMax", "=", RowBox[{ RowBox[{ RowBox[{"3.3", "/", "6.7"}], "/", "4"}], "*", "EnergieAkumulaceMax"}]}], ";", "\[IndentingNewLine]", RowBox[{"MaxWOdebrana", "=", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"muzuDobit2", "[", RowBox[{"data", ",", "n", ",", "PmaxSjednany"}], "]"}], "*", "ctvrthodina", "*", "\[Eta]Accu"}], ",", "0"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"WakuDisponibilni", "=", RowBox[{"Min", "[", RowBox[{"{", RowBox[{"WvybMax", ",", "Waccu", RowBox[{"(*", RowBox[{",", "MaxWOdebrana"}], "*)"}], ",", RowBox[{"(*", RowBox[{"Wpozadovana", ","}], "*)"}], "MaxWOdebrana"}], "}"}], "]"}]}], ";", RowBox[{"(*", RowBox[{",", "MaxWOdebrana"}], "*)"}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{"{", RowBox[{"WvybMax", ",", "Waccu", RowBox[{"(*", RowBox[{",", "MaxWOdebrana"}], "*)"}], ",", "Wpozadovana", ",", "MaxWOdebrana"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Wpozadovana", "\[LessEqual]", "WakuDisponibilni"}], ",", RowBox[{"(", RowBox[{ RowBox[{"WaccuNew", "=", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Waccu", "-", "WakuDisponibilni"}], ")"}], ",", "0"}], "}"}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "WakuDisponibilni", ",", "nNew", ",", "\"\\"", ",", RowBox[{"WaccuNew", "/", "3600000"}], ",", "\"\\"", ",", "Waccu"}], " ", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"WodebranaPeakNew", "=", "WodebranaPeak"}], ";", RowBox[{"penaleNew", "=", "penale"}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"mam", "-", RowBox[{"li", " ", "v", " ", "aku", " ", "dost"}]}], ",", " ", RowBox[{"dam", " ", "ji", " ", "z", " ", "aku"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Wpozadovana", ">", "WakuDisponibilni"}], ")"}], "&&", RowBox[{"(", RowBox[{"Wpozadovana", "<=", RowBox[{ RowBox[{"ctvrthodina", "*", RowBox[{"(", "PmaxSjednany", ")"}]}], "+", "WakuDisponibilni"}]}], ")"}]}], ",", RowBox[{"(", RowBox[{ RowBox[{"WaccuNew", "=", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Waccu", "-", "WakuDisponibilni"}], ")"}], ",", "0"}], "}"}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{ "WakuDisponibilni", ",", "nNew", ",", "\"\\"", ",", RowBox[{"WaccuNew", "/", "3600000"}], ",", "\"\\"", ",", "Waccu"}], " ", "]"}], ";"}], "*)"}], RowBox[{"WodebranaPeakNew", "=", RowBox[{"WodebranaPeak", "+", "Wpozadovana", "-", RowBox[{"(", RowBox[{"Waccu", "-", "WaccuNew"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"penaleNew", "=", "penale"}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Wpozadovana", ">", "WakuDisponibilni"}], ")"}], "&&", RowBox[{"(", RowBox[{"Wpozadovana", ">", RowBox[{ RowBox[{"ctvrthodina", "*", RowBox[{"(", "PmaxSjednany", ")"}]}], "+", "WakuDisponibilni"}]}], ")"}]}], ",", RowBox[{"(", RowBox[{ RowBox[{"WodebranaPeakNew", "=", RowBox[{"WodebranaPeak", "+", RowBox[{"(", RowBox[{"Wpozadovana", "-", "WakuDisponibilni"}], ")"}]}]}], ";", RowBox[{"WaccuNew", "=", RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Waccu", "-", "WakuDisponibilni"}], ")"}], ",", "0"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"penaleNew", "=", RowBox[{ RowBox[{"(", RowBox[{"Wpozadovana", "-", RowBox[{"(", RowBox[{ RowBox[{"ctvrthodina", "*", RowBox[{"(", "PmaxSjednany", ")"}]}], "+", "WakuDisponibilni"}], ")"}]}], ")"}], "*", "10000000000000"}]}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"pro", " ", "pripad"}], ",", " ", RowBox[{"co", " ", "by", " ", "nemal", " ", "nastat"}], ",", " ", RowBox[{"s", " ", "penale"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EnergieAkumulaceMax", "\[Equal]", "0"}], ",", RowBox[{"(", RowBox[{ RowBox[{"WodebranaPeakNew", "=", RowBox[{"WodebranaPeak", "+", "Wpozadovana"}]}], ";", RowBox[{"WodebranaBaseNew", "=", "WodebranaBase"}], ";", "\[IndentingNewLine]", RowBox[{"WaccuNew", "=", "Waccu"}], ";", "\[IndentingNewLine]", RowBox[{"penaleNew", "=", "penale"}], ";"}], ")"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "nNew", ",", "WaccuNew", ",", "WodebranaBaseNew", ",", "WodebranaPeakNew", ",", "penaleNew"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"krok", "[", RowBox[{"stav", ":", RowBox[{"{", RowBox[{ "n_", ",", "Waccu_", ",", "WodebranaBase_", ",", "WodebranaPeak_", ",", "penale_"}], "}"}]}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"base", "[", "n", "]"}], ",", RowBox[{"krokBase", "[", "stav", "]"}], ",", RowBox[{"krokPeak", "[", "stav", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "rozlisuje", " ", "jestli", " ", "to", " ", "je", " ", "nizzsi", " ", "nebo", " ", "vyssi", " ", "tarif", " ", "a", " ", "pote", " ", "vzhodnocuje"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pocatek", "=", RowBox[{"{", RowBox[{ "1", ",", "EnergieAkumulaceMax", ",", "0", ",", "0", ",", "penaleStart"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"pocatecni", " ", "hodnota", " ", "pro", " ", "vypocet"}], ",", " ", RowBox[{"zacinam", " ", "s", " ", "nabitou", " ", "baterii"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"prubehNabijeni", "=", RowBox[{"NestList", "[", RowBox[{"krok", ",", "pocatek", ",", "95"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"WpeakEnd", "=", RowBox[{ RowBox[{"Last", "[", "prubehNabijeni", "]"}], "[", RowBox[{"[", "4", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"WbaseEnd", "=", RowBox[{ RowBox[{"Last", "[", "prubehNabijeni", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"penaleEnd", "=", RowBox[{ RowBox[{"Last", "[", "prubehNabijeni", "]"}], "[", RowBox[{"[", "5", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maxPrikon", "=", RowBox[{ RowBox[{"Max", "[", RowBox[{"{", RowBox[{ RowBox[{"Differences", "[", RowBox[{"prubehNabijeni", "[", RowBox[{"[", "4", "]"}], "]"}], "]"}], ",", RowBox[{"Differences", "[", RowBox[{"prubehNabijeni", "[", RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "}"}], "]"}], "/", "ctvrthodina"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"cenaVT", "=", RowBox[{"cena1JoulePeak", "*", "WpeakEnd"}]}], ";", "\[IndentingNewLine]", RowBox[{"cenaNT", "=", RowBox[{"cena1JouleBase", "*", "WbaseEnd"}]}], ";", "\[IndentingNewLine]", RowBox[{"cenaPrikon", "=", RowBox[{ RowBox[{"cenazaPrikon", "[", "PmaxSjednany", "]"}], "*", RowBox[{"1", "/", "30"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"cenaBaterieJ", "=", RowBox[{"EnergieAkumulaceMax", "*", FractionBox["96", "dobaZivota"], "*", "cenaJoule"}]}], ";", "\[IndentingNewLine]", RowBox[{"cenaSystem", "=", "0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"cenaEnergie", "=", RowBox[{ RowBox[{"cena1JoulePeak", "*", "WpeakEnd"}], "+", RowBox[{"cena1JouleBase", "*", "WbaseEnd"}], "+", RowBox[{ RowBox[{"cenazaPrikon", "[", "PmaxSjednany", "]"}], "*", RowBox[{"1", "/", "30"}]}], "+", RowBox[{"EnergieAkumulaceMax", "*", FractionBox["96", "dobaZivota"], "*", "cenaJoule"}], "+", "penaleEnd"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"vypocet", " ", "NPV"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"usetreno", " ", "-", " ", RowBox[{"za", " ", "52", " ", "tydnu"}]}], ",", " ", RowBox[{ "prvni", " ", "cast", " ", "je", " ", "o", " ", "vsednich", " ", "dnech", " ", RowBox[{"(", RowBox[{"52", "*", RowBox[{"5", "/", "2"}]}], ")"}], " ", "druha", " ", "je", " ", "ovikendech", " ", RowBox[{"(", "52", ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"dopocet", "\[Equal]", "False"}], ",", RowBox[{"(", RowBox[{ RowBox[{"usetreno", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"cenaLetDenBB", "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumVsedLetDen", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumVsedLetDen", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}]}], ")"}], "+", "cenaZimDenBB", "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumVsedZimDen", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumVsedZimDen", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}]}], ")"}]}], ")"}], "*", "52", "*", RowBox[{"5", "/", "2"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"cenaZimVikendBB", "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumZimVikend", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumZimVikend", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}]}], ")"}], "+", "cenaLetVikendBB", "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumLetVikend", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxSjednany", ",", "EnergieAkumulaceMax", ",", "prumLetVikend", ",", "True", ",", "diskont"}], "}"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}]}], ")"}]}], ")"}], "*", "52", "*", RowBox[{"2", "/", "2"}]}]}]}], ";", RowBox[{"cashFlow", "=", RowBox[{"Cashflow", "[", RowBox[{ RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "cenaJoule"}], "*", "EnergieAkumulaceMax"}], "}"}], ",", RowBox[{"ConstantArray", "[", RowBox[{"usetreno", ",", "10"}], "]"}]}], "]"}], "}"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"cashflow", " ", "za", " ", "dobu", " ", "projektu"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NPV", "=", RowBox[{"-", RowBox[{"N", "[", RowBox[{ RowBox[{"TimeValue", "[", RowBox[{"cashFlow", ",", "diskont", ",", "0"}], "]"}], ",", "8"}], "]"}]}]}], ";"}], ")"}]}], RowBox[{"(*", RowBox[{ RowBox[{"cenaList", "=", RowBox[{"{", RowBox[{ "cenaEnergie", ",", "cenaNT", ",", "cenaVT", ",", "cenaPrikon", ",", "cenaBaterieJ", ",", "cenaSystem"}], "}"}]}], ";"}], "*)"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"vystup", "=", RowBox[{"{", RowBox[{ "prubehNabijeni", ",", "cenaEnergie", ",", "cenaNT", ",", "cenaVT", ",", "cenaPrikon", ",", "cenaBaterieJ", ",", "penaleEnd", ",", "cashFlow", ",", RowBox[{"N", "[", RowBox[{"NPV", ",", "10"}], "]"}], ",", "usetreno"}], "}"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellDingbat->"\[SpadeSuit]", CellChangeTimes->{{3.6895223010134974`*^9, 3.689522328035185*^9}, { 3.6895223602416286`*^9, 3.6895223839193163`*^9}, {3.6895225714372067`*^9, 3.6895226197369556`*^9}, {3.689522665521639*^9, 3.68952270873701*^9}, { 3.6895227561375093`*^9, 3.6895227906339025`*^9}, {3.6897649269493456`*^9, 3.689764928531917*^9}, {3.689764970549386*^9, 3.689764977880054*^9}, { 3.6897650589625854`*^9, 3.689765237885641*^9}, {3.689765332449955*^9, 3.6897654778576007`*^9}, {3.689765538362445*^9, 3.6897658680698695`*^9}, { 3.6897659051601424`*^9, 3.6897660495904703`*^9}, {3.689766085562046*^9, 3.6897661221159334`*^9}, {3.6897661755714207`*^9, 3.689766185857974*^9}, { 3.6897662519349055`*^9, 3.6897662883910646`*^9}, {3.6897663307415667`*^9, 3.689766336576107*^9}, {3.6897663756667233`*^9, 3.689766402027608*^9}, { 3.6897664466805162`*^9, 3.6897664922258935`*^9}, {3.689766551881605*^9, 3.6897665662693043`*^9}, {3.689767021956244*^9, 3.689767059491057*^9}, { 3.689767108894783*^9, 3.689767114033046*^9}, {3.6897671561440125`*^9, 3.6897671902437105`*^9}, {3.6897672230889564`*^9, 3.6897672303663893`*^9}, {3.689767273047793*^9, 3.6897672840236406`*^9}, { 3.6897673362542944`*^9, 3.6897673365066957`*^9}, {3.689767374352488*^9, 3.6897674127691216`*^9}, {3.689841477909625*^9, 3.68984153465007*^9}, { 3.689841575094223*^9, 3.6898416350206475`*^9}, {3.6898573883813076`*^9, 3.6898574976485677`*^9}, {3.6898575609372*^9, 3.6898575819013915`*^9}, { 3.6898576295211334`*^9, 3.689857638611647*^9}, {3.689857942165024*^9, 3.6898579427410555`*^9}, {3.689858030385073*^9, 3.68985821862286*^9}, { 3.689858513046713*^9, 3.6898586032978816`*^9}, {3.6898586692496605`*^9, 3.6898587281790323`*^9}, {3.6898587647111254`*^9, 3.6898588399064417`*^9}, {3.689858886219083*^9, 3.689859003485359*^9}, { 3.6898590854260597`*^9, 3.689859115167762*^9}, {3.689859167872772*^9, 3.689859187446891*^9}, 3.6898592692245855`*^9, {3.689861528090639*^9, 3.6898615847908854`*^9}, {3.689861652555769*^9, 3.6898616570070224`*^9}, { 3.689861701264557*^9, 3.6898617751057854`*^9}, {3.6900409392082963`*^9, 3.6900410944078064`*^9}, {3.6900411725835238`*^9, 3.6900411965410757`*^9}, {3.6900412853937454`*^9, 3.6900412903860846`*^9}, {3.6900413345880713`*^9, 3.6900415117861648`*^9}, {3.6900415453867087`*^9, 3.690041572027893*^9}, 3.6900416294058084`*^9, {3.6900416615267763`*^9, 3.690041727828416*^9}, { 3.690041794850521*^9, 3.690041955721222*^9}, 3.6900420590240355`*^9, { 3.6900425942902403`*^9, 3.690042773466941*^9}, {3.69004286321736*^9, 3.690042971525137*^9}, {3.69004312505342*^9, 3.690043160619529*^9}, { 3.690043205790699*^9, 3.6900432067243896`*^9}, 3.6900432496513023`*^9, { 3.690043291856983*^9, 3.6900433492566204`*^9}, {3.69004387213568*^9, 3.690043880253454*^9}, {3.690043928181795*^9, 3.69004396436242*^9}, 3.6900440193177395`*^9, 3.690044088748662*^9, {3.690044152745781*^9, 3.690044163038062*^9}, {3.690044260244749*^9, 3.6900443159444323`*^9}, 3.690044364758325*^9, {3.6900444014642673`*^9, 3.6900444019640465`*^9}, { 3.69004468339198*^9, 3.690044732404433*^9}, 3.6900447820440807`*^9, { 3.6900448618202047`*^9, 3.6900448727507334`*^9}, {3.6900451731350574`*^9, 3.690045205155377*^9}, {3.6900454585921307`*^9, 3.690045479732403*^9}, { 3.6900455715461473`*^9, 3.690045617892273*^9}, {3.6900456702210207`*^9, 3.6900457423574977`*^9}, {3.690045797419351*^9, 3.6900458143527436`*^9}, { 3.6900458743377266`*^9, 3.6900458788909903`*^9}, {3.690045912416546*^9, 3.690045985462886*^9}, {3.6900460586302423`*^9, 3.690046135623068*^9}, { 3.6900461838582067`*^9, 3.690046235798563*^9}, {3.6900471664481544`*^9, 3.690047166796175*^9}, {3.6900472195711994`*^9, 3.690047219937217*^9}, { 3.6900473740860476`*^9, 3.690047382834016*^9}, {3.6900475295470676`*^9, 3.6900475420477924`*^9}, {3.6900475905965595`*^9, 3.690047616927081*^9}, { 3.690047958358344*^9, 3.690047969034966*^9}, 3.690048133364769*^9, { 3.6900484282015467`*^9, 3.690048463827587*^9}, {3.690048829089778*^9, 3.69004882928671*^9}, {3.690050680409463*^9, 3.6900507186754694`*^9}, { 3.6900507825698504`*^9, 3.690050838626442*^9}, 3.6900533389636183`*^9, 3.690053656847224*^9, {3.6900539644411993`*^9, 3.690053968357467*^9}, { 3.6901277138229923`*^9, 3.69012771502606*^9}, 3.6901279266658134`*^9, { 3.6901279826982107`*^9, 3.6901279843613057`*^9}, {3.6901301677327237`*^9, 3.690130210761057*^9}, {3.690131147277464*^9, 3.6901311757210937`*^9}, { 3.6901345661091647`*^9, 3.6901345709105697`*^9}, 3.690137637298813*^9, { 3.690216467271827*^9, 3.6902166200039463`*^9}, {3.690216888750066*^9, 3.690216949687557*^9}, {3.6902171584035006`*^9, 3.6902171795297117`*^9}, { 3.690217215170751*^9, 3.6902172860458097`*^9}, {3.6902175719971867`*^9, 3.690217589859218*^9}, {3.6902177921217995`*^9, 3.690217825045678*^9}, { 3.6902185413710313`*^9, 3.690218575728011*^9}, {3.6902188457868013`*^9, 3.690218847846917*^9}, 3.690219168098256*^9, {3.6902198283725805`*^9, 3.6902198984591064`*^9}, {3.6902199931141396`*^9, 3.690220013000269*^9}, 3.690220044017047*^9, {3.690220376287548*^9, 3.6902204336518264`*^9}, { 3.690220630078074*^9, 3.690220633003242*^9}, {3.690220920762477*^9, 3.6902209236878386`*^9}, {3.6902213469865503`*^9, 3.6902214050136046`*^9}, {3.69022143711211*^9, 3.690221446895376*^9}, { 3.690221512893053*^9, 3.6902215595826135`*^9}, {3.690222100916563*^9, 3.690222112828476*^9}, {3.6902224949570045`*^9, 3.690222505171589*^9}, { 3.690266383806326*^9, 3.690266434187864*^9}, {3.690266467630805*^9, 3.6902665080715914`*^9}, {3.6902665488897905`*^9, 3.690266594823742*^9}, { 3.6902666348511395`*^9, 3.6902666767057486`*^9}, {3.6902667120347614`*^9, 3.6902668385599995`*^9}, {3.690266975266017*^9, 3.6902669923708315`*^9}, { 3.69026702673316*^9, 3.690267039328457*^9}, {3.690267084872135*^9, 3.690267155761484*^9}, {3.6902672129205685`*^9, 3.6902672610579567`*^9}, { 3.690267393759805*^9, 3.6902674272046413`*^9}, {3.690267474660283*^9, 3.6902674790355253`*^9}, {3.6902675553153543`*^9, 3.6902676028350306`*^9}, 3.6902678333747406`*^9, 3.690267907094553*^9, {3.69030111036504*^9, 3.69030113007717*^9}, {3.690301162959052*^9, 3.6903013235442586`*^9}, { 3.6903013970324574`*^9, 3.6903014092271557`*^9}, {3.690301674722258*^9, 3.6903016762413487`*^9}, 3.690301871696546*^9, {3.690301912296873*^9, 3.690301959658575*^9}, {3.6903020079173384`*^9, 3.6903020548700266`*^9}, 3.6903021113452716`*^9, {3.690302156260844*^9, 3.690302194454029*^9}, { 3.6903022287021685`*^9, 3.6903022562276506`*^9}, {3.6903025401573734`*^9, 3.6903026165457563`*^9}, {3.6903027423069525`*^9, 3.6903027947909555`*^9}, {3.6903028422486725`*^9, 3.690302842749703*^9}, 3.6903028765456376`*^9, 3.6903030621662674`*^9, 3.6903035071089077`*^9, { 3.6903039202185926`*^9, 3.690303929894147*^9}, {3.690304065166892*^9, 3.6903041963264112`*^9}, 3.6903050570677023`*^9, {3.6903052646875925`*^9, 3.6903052733380876`*^9}, {3.69030531472545*^9, 3.6903053780520763`*^9}, { 3.690305520373226*^9, 3.690305604477043*^9}, 3.6903056381289787`*^9, { 3.6903058212214565`*^9, 3.6903058222955184`*^9}, {3.6903064202017584`*^9, 3.690306439508462*^9}, {3.690306687051647*^9, 3.690306693738028*^9}, { 3.6903068645858054`*^9, 3.6903068686670456`*^9}, {3.6903069175668383`*^9, 3.6903069204710045`*^9}, 3.6903072040352764`*^9, 3.690307418707158*^9, { 3.690308192839071*^9, 3.690308194544156*^9}, {3.690308557471943*^9, 3.6903085909448576`*^9}, {3.690308622896699*^9, 3.6903086752466865`*^9}, 3.6903088583523993`*^9, {3.690309366686508*^9, 3.690309378460182*^9}, { 3.690309904087283*^9, 3.690309908256532*^9}, {3.690310055942979*^9, 3.69031006486749*^9}, {3.6903101015966043`*^9, 3.690310106307863*^9}, { 3.690310158093829*^9, 3.6903102381664147`*^9}, {3.6903102705992827`*^9, 3.6903102808318663`*^9}, {3.690310328321577*^9, 3.690310331235745*^9}, { 3.690310701157936*^9, 3.690310704922144*^9}, {3.690310793078201*^9, 3.6903108081310625`*^9}, {3.6903109498611712`*^9, 3.690310981193967*^9}, 3.6903117000574894`*^9, {3.690311829698978*^9, 3.6903118381224527`*^9}, { 3.6903119251104336`*^9, 3.6903119500498724`*^9}, 3.6903120859428053`*^9, { 3.6903133176141257`*^9, 3.6903134016339417`*^9}, {3.6903134530018806`*^9, 3.690313464952565*^9}, {3.690315062985078*^9, 3.6903153341336184`*^9}, { 3.690316237869162*^9, 3.690316241459366*^9}, {3.6903169606905537`*^9, 3.6903169975406637`*^9}, {3.6903173240583706`*^9, 3.6903173377161574`*^9}, {3.690317375888333*^9, 3.690317379799555*^9}, { 3.690318324941688*^9, 3.69031834174465*^9}, {3.690477588012829*^9, 3.690477724072527*^9}, {3.6906106687999153`*^9, 3.690610704346942*^9}, { 3.690819291255911*^9, 3.690819310458001*^9}, 3.6908198068634377`*^9, { 3.6908199256212287`*^9, 3.6908199320885983`*^9}, 3.690819971995887*^9, { 3.6908200176334977`*^9, 3.690820022259765*^9}, {3.690820160028728*^9, 3.6908201857822094`*^9}, {3.690820548608979*^9, 3.690820553014233*^9}, { 3.690820701119713*^9, 3.6908207425860963`*^9}, {3.690820775180958*^9, 3.6908207798712254`*^9}, {3.6908211339564934`*^9, 3.6908211396096983`*^9}, {3.690824601464508*^9, 3.690824608115842*^9}, { 3.690824638769661*^9, 3.6908247291578836`*^9}, {3.6908251107810645`*^9, 3.6908251428879023`*^9}, {3.6908252838850737`*^9, 3.6908253647267036`*^9}, {3.6908253981746283`*^9, 3.6908254022168493`*^9}, {3.690825465895496*^9, 3.6908255146152935`*^9}, 3.690826429747611*^9, {3.690826463083529*^9, 3.6908265065860105`*^9}, { 3.6908265615131564`*^9, 3.6908265652393713`*^9}, 3.6908266385605717`*^9, { 3.6908266782918444`*^9, 3.690826682155073*^9}, 3.6908268142296305`*^9, 3.690826983779338*^9, {3.6908270190443597`*^9, 3.6908270620038176`*^9}, { 3.690827154172104*^9, 3.6908271670408335`*^9}, {3.6908271977305913`*^9, 3.69082721411753*^9}, {3.6908272501685934`*^9, 3.6908272507326255`*^9}, { 3.6908279260040255`*^9, 3.690828043228735*^9}, {3.690828120506169*^9, 3.6908281325978613`*^9}, {3.690828567505396*^9, 3.6908285682044363`*^9}, 3.690828837802202*^9, {3.6908289193508825`*^9, 3.690828921110978*^9}, { 3.6908290378556576`*^9, 3.690829038093672*^9}, {3.690829289199051*^9, 3.6908293371568065`*^9}, {3.6908294578187075`*^9, 3.6908294596688185`*^9}, {3.6908294962809114`*^9, 3.6908295079835806`*^9}, {3.6908296749033227`*^9, 3.690829720276924*^9}, { 3.6908299071056194`*^9, 3.690829912106908*^9}, {3.690829996920764*^9, 3.690830212076913*^9}, {3.690830821346704*^9, 3.6908308594208813`*^9}, { 3.6908309088317204`*^9, 3.690830937708375*^9}, {3.6908310980445485`*^9, 3.6908310983625727`*^9}, {3.6908316705850425`*^9, 3.690831729178567*^9}, { 3.6908317897380357`*^9, 3.690831790040055*^9}, {3.690832693543604*^9, 3.690832716842946*^9}, {3.6908327928152866`*^9, 3.6908327971995387`*^9}, { 3.6908329374065685`*^9, 3.6908329546985583`*^9}, 3.690832985417328*^9, { 3.6908339835274754`*^9, 3.69083399775029*^9}, {3.690834401440996*^9, 3.6908344214114027`*^9}, 3.690953396197672*^9, {3.6909534574586983`*^9, 3.690953479851991*^9}, {3.6909600672298*^9, 3.6909600867569284`*^9}, 3.6909605045678453`*^9, 3.691077264541211*^9, {3.691077299549226*^9, 3.6910774306367316`*^9}, {3.691077471199047*^9, 3.691077508545186*^9}, { 3.691077557076971*^9, 3.6910775588650675`*^9}, {3.6910775905178804`*^9, 3.691077594750121*^9}, {3.6910776466910973`*^9, 3.691077737075279*^9}, { 3.691077849449707*^9, 3.6910778850657463`*^9}, {3.6910781441945868`*^9, 3.6910781447726183`*^9}, {3.691078176852456*^9, 3.6910781833658285`*^9}, 3.691078343021452*^9, 3.691078410734329*^9, {3.6910784996894712`*^9, 3.6910785608829746`*^9}, {3.691078952012174*^9, 3.6910789547743406`*^9}, 3.6910790918232255`*^9, {3.691079133437608*^9, 3.691079135006699*^9}, 3.691079687286003*^9, {3.6910799528024673`*^9, 3.6910799600566764`*^9}, { 3.6910800106190834`*^9, 3.6910800752306547`*^9}, {3.691080114167884*^9, 3.6910801939959493`*^9}, 3.691080234884209*^9, {3.691080380508549*^9, 3.691080382902688*^9}, {3.691080414659505*^9, 3.6910804269832115`*^9}, { 3.6910804638713245`*^9, 3.6910804679665575`*^9}, {3.691080582715131*^9, 3.691080648268883*^9}, 3.6910806832858887`*^9, {3.6910811726294184`*^9, 3.691081233369897*^9}, {3.6910813049739995`*^9, 3.6910813344306927`*^9}, { 3.6910813791502457`*^9, 3.6910814111440783`*^9}, {3.6910814629740458`*^9, 3.6910814838882437`*^9}, {3.691081545250758*^9, 3.6910815467518425`*^9}, { 3.691081581628851*^9, 3.6910817122013254`*^9}, 3.691081978418286*^9, 3.691082108284725*^9, {3.691082448754222*^9, 3.691082516623116*^9}, 3.691082668375729*^9, 3.6910827055698614`*^9, 3.691082786460501*^9, { 3.6910829281775804`*^9, 3.6910831142662363`*^9}, 3.691083244240679*^9, { 3.69108340141168*^9, 3.6910834057959337`*^9}, {3.6910835247367415`*^9, 3.6910835278019176`*^9}, {3.6910836090435705`*^9, 3.691083625923539*^9}, { 3.691083697425632*^9, 3.6910837003258057`*^9}, 3.691084056231179*^9, { 3.6910841934910393`*^9, 3.6910842043226624`*^9}, {3.691084279503967*^9, 3.6910842908946195`*^9}, {3.6910843259366264`*^9, 3.6910843287167864`*^9}, {3.6910845739456835`*^9, 3.6910845851263294`*^9}, {3.691084632111012*^9, 3.6910846439596925`*^9}, { 3.691084691375406*^9, 3.6910846931465073`*^9}, {3.691084742642344*^9, 3.691084747140601*^9}, {3.6910847840452285`*^9, 3.691084789332532*^9}, { 3.6910848567893925`*^9, 3.691084900227889*^9}, {3.6910849692658377`*^9, 3.691084977210289*^9}, 3.691085180514188*^9, {3.691085430579419*^9, 3.691085441797387*^9}, {3.691085556022559*^9, 3.691085577409457*^9}, 3.691085739058531*^9, {3.691085795232772*^9, 3.6910858051371007`*^9}, { 3.691085860387889*^9, 3.6910858739506607`*^9}, 3.6910859576444497`*^9, 3.69108610540392*^9, {3.6910881798030033`*^9, 3.6910882821903844`*^9}, 3.69108832054758*^9, {3.69108849807985*^9, 3.691088521669198*^9}, { 3.6910889528804073`*^9, 3.691089062327673*^9}, 3.6910891786633325`*^9, { 3.691089676178627*^9, 3.6910897023675184`*^9}, 3.6910904356837034`*^9, { 3.691090568480499*^9, 3.691090575738195*^9}, {3.691094721710348*^9, 3.6910947224921055`*^9}, {3.691097191371854*^9, 3.6910971922659044`*^9}, { 3.691097231573283*^9, 3.691097233102377*^9}, {3.691258152161951*^9, 3.691258204538289*^9}, {3.691258240616352*^9, 3.6912582621705885`*^9}, { 3.6912633329893146`*^9, 3.691263386822395*^9}, {3.6912635234222183`*^9, 3.691263569079835*^9}, {3.691263652774626*^9, 3.6912636845574455`*^9}, { 3.691267832965643*^9, 3.6912678332857323`*^9}, {3.69126946384104*^9, 3.691269488505461*^9}, {3.691269598926778*^9, 3.6912696089273577`*^9}, { 3.691269667500703*^9, 3.6912696678257313`*^9}, {3.6912696986694884`*^9, 3.691269710327158*^9}, {3.691269785069436*^9, 3.691269790442746*^9}, { 3.6912698263678102`*^9, 3.6912698440658245`*^9}, {3.6912700210189495`*^9, 3.6912700414181166`*^9}, 3.6912701042227173`*^9, {3.6912701463881273`*^9, 3.6912701689464216`*^9}, {3.6912703690148783`*^9, 3.6912703864938774`*^9}, 3.691270477580097*^9, 3.6912705534538093`*^9, {3.6912706028576365`*^9, 3.6912706383836803`*^9}, {3.691270826969471*^9, 3.691270827244486*^9}, { 3.6912714580106096`*^9, 3.691271458442632*^9}, {3.6912714912045083`*^9, 3.6912714917885427`*^9}, {3.6912717880865107`*^9, 3.691271788735547*^9}, { 3.691271823705552*^9, 3.691271824939627*^9}, 3.6912718965497217`*^9, 3.691271971182996*^9, 3.691272064152321*^9, {3.691272912301897*^9, 3.6912730056902375`*^9}, {3.6912730514408574`*^9, 3.691273056207131*^9}, { 3.69130312932677*^9, 3.691303129610791*^9}, {3.6913341331234303`*^9, 3.6913341337864957`*^9}, {3.691500683252923*^9, 3.6915006905693407`*^9}, { 3.6915181182971106`*^9, 3.691518158082389*^9}, {3.6916494672553997`*^9, 3.6916494842793856`*^9}, {3.6916497201417093`*^9, 3.6916497205057387`*^9}, {3.6916498565965247`*^9, 3.691649857335565*^9}, { 3.691649944590563*^9, 3.6916499448645773`*^9}, 3.6916504570672293`*^9, 3.691651901015184*^9, {3.691651949057063*^9, 3.691651951772646*^9}, 3.6916519901209526`*^9, 3.6916521341897497`*^9, 3.691652197596383*^9, { 3.6916522598518724`*^9, 3.691652347761376*^9}, {3.691652479116771*^9, 3.6916524892310734`*^9}, {3.6916528090823507`*^9, 3.6916528741278915`*^9}, {3.691653348108946*^9, 3.6916533775151625`*^9}, 3.6916534419513197`*^9, {3.691653738170762*^9, 3.6916538762130985`*^9}, { 3.6916541009220467`*^9, 3.691654135626439*^9}, {3.691654970135588*^9, 3.6916549868055735`*^9}, {3.6916863609749613`*^9, 3.691686376235834*^9}, { 3.6916864433686795`*^9, 3.6916864494250317`*^9}, {3.691686839564831*^9, 3.6916868449621477`*^9}, 3.691686894956002*^9, {3.691687110685986*^9, 3.6916871109920034`*^9}, {3.6916873430360136`*^9, 3.6916873658723216`*^9}, {3.6916874647437005`*^9, 3.6916874661237836`*^9}, {3.69168896180429*^9, 3.691688991294986*^9}, { 3.6916950704733047`*^9, 3.691695075474581*^9}, {3.691695604458208*^9, 3.6916956051032476`*^9}, {3.6916971742878695`*^9, 3.691697180751603*^9}, { 3.6916972467877235`*^9, 3.691697249401923*^9}, {3.6916972960367994`*^9, 3.691697346828022*^9}, {3.691697428561449*^9, 3.691697429662387*^9}, 3.691697594113035*^9, {3.6916976726077147`*^9, 3.6916976744925337`*^9}, { 3.6916978910327663`*^9, 3.69169791350301*^9}, {3.691698074376626*^9, 3.691698084995638*^9}, {3.6916982620362854`*^9, 3.6916982676413183`*^9}, { 3.6917047500909896`*^9, 3.6917047587939034`*^9}, {3.6917053197557135`*^9, 3.691705329746388*^9}, {3.6917054687085576`*^9, 3.691705471277466*^9}, { 3.691705602560457*^9, 3.6917056089645605`*^9}, {3.691705762365095*^9, 3.6917057928506994`*^9}, 3.691705897631387*^9, {3.691706003716442*^9, 3.691706032001967*^9}, {3.691706125159606*^9, 3.6917061602545147`*^9}, { 3.691706348652405*^9, 3.6917063538411975`*^9}, {3.691708102348195*^9, 3.6917081103548746`*^9}, {3.6917081843961735`*^9, 3.691708184696142*^9}, { 3.691708275926149*^9, 3.691708284232624*^9}, {3.691742709544691*^9, 3.6917427738858385`*^9}, {3.6917428059061775`*^9, 3.6917428067826385`*^9}, {3.6917436298839517`*^9, 3.6917436329787483`*^9}, 3.6917443161125174`*^9, {3.691744976020131*^9, 3.6917449840435944`*^9}, { 3.69175357301068*^9, 3.6917536523237495`*^9}, {3.691754301462633*^9, 3.691754304389475*^9}, {3.6917544601508245`*^9, 3.6917544978778267`*^9}, { 3.6917545646853447`*^9, 3.6917545652753873`*^9}, {3.6917548675494537`*^9, 3.691754924563137*^9}, 3.6917576659865932`*^9, {3.691759782679032*^9, 3.691759791539214*^9}, {3.691861820600665*^9, 3.69186182312591*^9}, { 3.691861966943437*^9, 3.69186198393085*^9}, 3.691863808504182*^9, { 3.6918638550686216`*^9, 3.6918638878761272`*^9}, {3.6918639735036764`*^9, 3.6918639820949855`*^9}, {3.691864225165591*^9, 3.691864256637883*^9}, { 3.691864307731739*^9, 3.691864310115312*^9}, {3.691864419356903*^9, 3.6918644480515985`*^9}, 3.6918646967927065`*^9, 3.691925150234644*^9, { 3.691928055500724*^9, 3.6919280655288453`*^9}, 3.691928525831498*^9, { 3.6925384575409207`*^9, 3.692538562330931*^9}}, FontSize->12], Cell[BoxData[""], "Input", CellChangeTimes->{{3.691270847770663*^9, 3.69127089050811*^9}, { 3.691272121285591*^9, 3.6912721217496185`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"mycena", ",", "minimum", ",", "PmaxOdebirany", ",", "BaterieMin"}], "]"}], "\[IndentingNewLine]", RowBox[{"cenaJoule", "=", RowBox[{"7000", "*", RowBox[{"25.92", "/", RowBox[{"(", RowBox[{"14000", "*", "3600"}], ")"}]}], "*", "1"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mycena", "[", RowBox[{ RowBox[{"PmaxOdber1_", "?", "NumericQ"}], ",", RowBox[{"Baterie_", "?", "NumericQ"}]}], "]"}], ":=", RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxOdber1", ",", "Baterie", ",", "prumVsedZimDen", ",", "False", ",", "0.05"}], "}"}], "]"}], "[", RowBox[{"[", "9", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"minimum", "=", RowBox[{"NMinimize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"mycena", "[", RowBox[{"PmaxOdber1", ",", "Baterie"}], "]"}], ",", RowBox[{"200000", ">", "PmaxOdber1", ">", "100000"}], ",", RowBox[{"10000000000", ">", "Baterie", ">", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"PmaxOdber1", ",", "Baterie"}], "}"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", StyleBox[ RowBox[{"minimum", "=", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{"mycena", "[", RowBox[{"PmaxOdber1", ",", "Baterie"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"PmaxOdber1", ",", "200000."}], "}"}], ",", RowBox[{"{", RowBox[{"Baterie", ",", "10000000"}], "}"}]}], "}"}], ",", RowBox[{"Method", "->", "\"\\""}]}], "]"}]}], FontSize->12], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"minimumHodnoty", "=", RowBox[{"minimum", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PmaxOdebirany", "=", RowBox[{"PmaxOdber1", "/.", "minimumHodnoty"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"BaterieMin", "=", RowBox[{"PmaxUvazovany", "*", "10", "*", "hodina"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BaterieMin", " ", "=", " ", RowBox[{"(", RowBox[{"Baterie", " ", "/.", " ", "minimumHodnoty"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"minimumPrubeh", "=", RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxOdebirany", ",", "BaterieMin", ",", "prumVsedZimDen", ",", "False", ",", "0.05"}], "}"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaRozbor", "=", RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxOdebirany", ",", "BaterieMin", ",", "prumVsedZimDen", ",", "False", ",", "0.05"}], "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"samotny", " ", "graf"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.6895223010134974`*^9, 3.689522328035185*^9}, { 3.6895223602416286`*^9, 3.6895223839193163`*^9}, {3.6895225714372067`*^9, 3.6895226197369556`*^9}, {3.689522665521639*^9, 3.68952270873701*^9}, { 3.6895227561375093`*^9, 3.6895227906339025`*^9}, {3.6897649269493456`*^9, 3.689764928531917*^9}, {3.689764970549386*^9, 3.689764977880054*^9}, { 3.6897650589625854`*^9, 3.689765237885641*^9}, {3.689765332449955*^9, 3.6897654778576007`*^9}, {3.689765538362445*^9, 3.6897658680698695`*^9}, { 3.6897659051601424`*^9, 3.6897660495904703`*^9}, {3.689766085562046*^9, 3.6897661221159334`*^9}, {3.6897661755714207`*^9, 3.689766185857974*^9}, { 3.6897662519349055`*^9, 3.6897662883910646`*^9}, {3.6897663307415667`*^9, 3.689766336576107*^9}, {3.6897663756667233`*^9, 3.689766402027608*^9}, { 3.6897664466805162`*^9, 3.6897664922258935`*^9}, {3.689766551881605*^9, 3.6897665662693043`*^9}, {3.689767021956244*^9, 3.689767059491057*^9}, { 3.689767108894783*^9, 3.689767114033046*^9}, {3.6897671561440125`*^9, 3.6897671902437105`*^9}, {3.6897672230889564`*^9, 3.6897672303663893`*^9}, {3.689767273047793*^9, 3.6897672840236406`*^9}, { 3.6897673362542944`*^9, 3.6897673365066957`*^9}, {3.689767374352488*^9, 3.6897674127691216`*^9}, {3.689841477909625*^9, 3.68984153465007*^9}, { 3.689841575094223*^9, 3.6898416350206475`*^9}, {3.6898573883813076`*^9, 3.6898574976485677`*^9}, {3.6898575609372*^9, 3.6898575819013915`*^9}, { 3.6898576295211334`*^9, 3.689857638611647*^9}, {3.689857942165024*^9, 3.6898579427410555`*^9}, {3.689858030385073*^9, 3.68985821862286*^9}, { 3.689858513046713*^9, 3.6898586032978816`*^9}, {3.6898586692496605`*^9, 3.6898587281790323`*^9}, {3.6898587647111254`*^9, 3.6898588399064417`*^9}, {3.689858886219083*^9, 3.689859003485359*^9}, { 3.6898590854260597`*^9, 3.689859115167762*^9}, {3.689859167872772*^9, 3.689859187446891*^9}, 3.6898592692245855`*^9, {3.689861528090639*^9, 3.6898615847908854`*^9}, {3.689861652555769*^9, 3.6898616570070224`*^9}, { 3.689861701264557*^9, 3.6898617751057854`*^9}, {3.6900409392082963`*^9, 3.6900410944078064`*^9}, {3.6900411725835238`*^9, 3.6900411965410757`*^9}, {3.6900412853937454`*^9, 3.6900412903860846`*^9}, {3.6900413345880713`*^9, 3.6900415117861648`*^9}, {3.6900415453867087`*^9, 3.690041572027893*^9}, 3.6900416294058084`*^9, {3.6900416615267763`*^9, 3.690041727828416*^9}, { 3.690041794850521*^9, 3.690041955721222*^9}, 3.6900420590240355`*^9, { 3.6900425942902403`*^9, 3.690042773466941*^9}, {3.69004286321736*^9, 3.690042971525137*^9}, {3.69004312505342*^9, 3.690043160619529*^9}, { 3.690043205790699*^9, 3.6900432067243896`*^9}, 3.6900432496513023`*^9, { 3.690043291856983*^9, 3.6900433492566204`*^9}, {3.69004387213568*^9, 3.690043880253454*^9}, {3.690043928181795*^9, 3.69004396436242*^9}, 3.6900440193177395`*^9, 3.690044088748662*^9, {3.690044152745781*^9, 3.690044163038062*^9}, {3.690044260244749*^9, 3.6900443159444323`*^9}, 3.690044364758325*^9, {3.6900444014642673`*^9, 3.6900444019640465`*^9}, { 3.69004468339198*^9, 3.690044732404433*^9}, 3.6900447820440807`*^9, { 3.6900448618202047`*^9, 3.6900448727507334`*^9}, {3.6900451731350574`*^9, 3.690045205155377*^9}, {3.6900454585921307`*^9, 3.690045479732403*^9}, { 3.6900455715461473`*^9, 3.690045617892273*^9}, {3.6900456702210207`*^9, 3.6900457423574977`*^9}, {3.690045797419351*^9, 3.6900458143527436`*^9}, { 3.6900458743377266`*^9, 3.6900458788909903`*^9}, {3.690045912416546*^9, 3.690045985462886*^9}, {3.6900460586302423`*^9, 3.690046135623068*^9}, { 3.6900461838582067`*^9, 3.690046235798563*^9}, {3.6900471664481544`*^9, 3.690047166796175*^9}, {3.6900472195711994`*^9, 3.690047219937217*^9}, { 3.6900473740860476`*^9, 3.690047382834016*^9}, {3.6900475295470676`*^9, 3.6900475420477924`*^9}, {3.6900475905965595`*^9, 3.690047616927081*^9}, { 3.690047958358344*^9, 3.690047969034966*^9}, 3.690048133364769*^9, { 3.6900484282015467`*^9, 3.690048463827587*^9}, {3.690048829089778*^9, 3.69004882928671*^9}, {3.690050680409463*^9, 3.6900507186754694`*^9}, { 3.6900507825698504`*^9, 3.690050838626442*^9}, 3.6900533389636183`*^9, 3.690053656847224*^9, {3.6900539644411993`*^9, 3.690053968357467*^9}, { 3.6901277138229923`*^9, 3.69012771502606*^9}, 3.6901279266658134`*^9, { 3.6901279826982107`*^9, 3.6901279843613057`*^9}, 3.6901301677327237`*^9, { 3.6901366228286333`*^9, 3.690136645908147*^9}, {3.6901368307627716`*^9, 3.6901368311917963`*^9}, {3.6901372631098843`*^9, 3.690137294702306*^9}, { 3.690137328477379*^9, 3.6901373329975977`*^9}, {3.690137397925503*^9, 3.69013740996803*^9}, {3.690137584312744*^9, 3.690137599006587*^9}, { 3.6901377819374485`*^9, 3.6901378039827094`*^9}, {3.6901378538395667`*^9, 3.6901378542495894`*^9}, 3.6902180931611257`*^9, {3.6902183590295925`*^9, 3.6902183596446266`*^9}, {3.690219212438797*^9, 3.690219214009897*^9}, { 3.6902192519370594`*^9, 3.69021927325928*^9}, {3.69021939255612*^9, 3.6902194088050423`*^9}, {3.6902197106203747`*^9, 3.6902197751880727`*^9}, {3.6902204895620275`*^9, 3.690220555135784*^9}, { 3.6902206009924164`*^9, 3.6902207534611406`*^9}, {3.6902208514499464`*^9, 3.6902208666112456`*^9}, {3.69022095409319*^9, 3.690220965262806*^9}, { 3.6902212204134707`*^9, 3.690221229376058*^9}, {3.6902212778973813`*^9, 3.6902212784660006`*^9}, {3.690221860691966*^9, 3.6902218718123636`*^9}, { 3.6902233106557045`*^9, 3.6902233671037283`*^9}, {3.6902235704176636`*^9, 3.6902235807822585`*^9}, {3.690223735378211*^9, 3.6902237402973633`*^9}, { 3.69022378196029*^9, 3.6902238092355175`*^9}, {3.6902249997548475`*^9, 3.690225000410407*^9}, {3.6903007662093334`*^9, 3.6903008325341315`*^9}, 3.6903013334958196`*^9, {3.6903029226232777`*^9, 3.690302982218692*^9}, { 3.690303080736331*^9, 3.6903031219787045`*^9}, {3.690303162846035*^9, 3.690303167599306*^9}, {3.690303210576767*^9, 3.690303240923514*^9}, { 3.6903035610590005`*^9, 3.690303630133956*^9}, {3.690305683290559*^9, 3.6903056937201557`*^9}, 3.690307481410776*^9, {3.6903121115152693`*^9, 3.6903121147964573`*^9}, {3.6903124326936617`*^9, 3.690312457676091*^9}, 3.690312552384516*^9, {3.6903139350054827`*^9, 3.6903139465921574`*^9}, { 3.690315387218647*^9, 3.690315421114588*^9}, {3.690317044493355*^9, 3.690317053306861*^9}, {3.690318646791113*^9, 3.6903186568016863`*^9}, { 3.6908203514556913`*^9, 3.690820366634571*^9}, {3.690828879858612*^9, 3.690828901154831*^9}, {3.690830599200981*^9, 3.690830600900079*^9}, { 3.690830979006731*^9, 3.690830995127654*^9}, 3.690832762848573*^9, 3.6908344848300605`*^9, 3.6909623489868946`*^9, {3.690962419517934*^9, 3.690962472127947*^9}, {3.6909643801333055`*^9, 3.6909643823854322`*^9}, { 3.69096478326439*^9, 3.6909648054876633`*^9}, {3.6910749731244574`*^9, 3.6910749794918213`*^9}, {3.6910774380751505`*^9, 3.691077438901198*^9}, { 3.6910774753902864`*^9, 3.691077475972332*^9}, {3.6910775624212713`*^9, 3.6910775628372965`*^9}, {3.691077615207296*^9, 3.691077622732725*^9}, { 3.691077699186104*^9, 3.6910776996061287`*^9}, 3.691078019048423*^9, { 3.691078368672922*^9, 3.6910783694429665`*^9}, {3.6910788937068377`*^9, 3.6910788948359017`*^9}, {3.6910798846105604`*^9, 3.6910798850325847`*^9}, {3.691080222347492*^9, 3.691080222767516*^9}, { 3.691080262501794*^9, 3.6910802630598335`*^9}, {3.6910811599156914`*^9, 3.691081162094817*^9}, {3.69108275320859*^9, 3.6910827537136188`*^9}, { 3.691083181533089*^9, 3.6910831837882195`*^9}, {3.691083257261427*^9, 3.691083257544443*^9}, {3.6910832993688483`*^9, 3.6910833008429227`*^9}, { 3.6910833629374795`*^9, 3.6910833638355293`*^9}, {3.6910856481740303`*^9, 3.6910856499638395`*^9}, {3.6910857054676695`*^9, 3.6910857145470853`*^9}, 3.691085765224536*^9, {3.691086068432806*^9, 3.69108609590938*^9}, { 3.691088068619627*^9, 3.6910880692456627`*^9}, {3.691088783356698*^9, 3.6910887841697454`*^9}, {3.691089110896454*^9, 3.6910891113634806`*^9}, { 3.691089335076293*^9, 3.6910893354073105`*^9}, {3.6910903369347916`*^9, 3.691090338392396*^9}, {3.6910914349628367`*^9, 3.691091435470825*^9}, { 3.6910915445875707`*^9, 3.691091547093382*^9}, {3.691097165566378*^9, 3.6910971677375035`*^9}, 3.691097354571327*^9, {3.6912582805496397`*^9, 3.691258282779769*^9}, {3.6912584195634546`*^9, 3.6912584264128485`*^9}, { 3.6913035252748313`*^9, 3.691303525958104*^9}, {3.691303566695649*^9, 3.6913035668876543`*^9}, {3.691339262383329*^9, 3.6913392627602034`*^9}, { 3.6915182988835278`*^9, 3.6915183019907055`*^9}, {3.6915183625261717`*^9, 3.691518366883422*^9}, {3.691518409429858*^9, 3.691518446876004*^9}, { 3.6915184779227896`*^9, 3.6915184819250097`*^9}, 3.6915185900982037`*^9, { 3.6915186549639187`*^9, 3.691518655417944*^9}, 3.691650079692299*^9, { 3.6916501338321276`*^9, 3.691650136259267*^9}, {3.69165018224726*^9, 3.6916501834015584`*^9}, {3.6916502319060163`*^9, 3.6916502324873323`*^9}, {3.6916502875226974`*^9, 3.6916502880737677`*^9}, {3.691650617584134*^9, 3.691650624164155*^9}, { 3.69165067086147*^9, 3.6916507171224966`*^9}, 3.69165352038243*^9, { 3.6916535839189553`*^9, 3.6916535843121867`*^9}, 3.691653923006484*^9, 3.6916541579132557`*^9, 3.69165444385252*^9, 3.691686479581751*^9, { 3.691686553038674*^9, 3.691686553564703*^9}, {3.6916866088496294`*^9, 3.6916866094796557`*^9}, {3.6916867448034153`*^9, 3.69168674540644*^9}, { 3.691686958524645*^9, 3.6916869591086884`*^9}, 3.691687044957224*^9, { 3.691687562342286*^9, 3.69168764200585*^9}, {3.6916889860176787`*^9, 3.691689001765579*^9}, {3.6916890443700185`*^9, 3.6916890724056344`*^9}, { 3.6916897691151834`*^9, 3.691689819825088*^9}, 3.691690065782172*^9, { 3.691691441570956*^9, 3.6916914478682423`*^9}, 3.691695046997951*^9, { 3.691696860189642*^9, 3.6916968639055595`*^9}, {3.691696981872965*^9, 3.691696982019882*^9}, 3.691697092159356*^9, {3.691697790157798*^9, 3.6916977917423*^9}, 3.6916980098313103`*^9, {3.6916982836086006`*^9, 3.691698286851115*^9}, {3.6916984881263065`*^9, 3.691698489111407*^9}, { 3.6916985228029747`*^9, 3.6916985232881145`*^9}, {3.691698594614134*^9, 3.691698595701229*^9}, {3.691698741401749*^9, 3.6916987475305934`*^9}, { 3.691699289244856*^9, 3.691699311649556*^9}, 3.691701774355867*^9, { 3.6917018344776707`*^9, 3.691701835056614*^9}, 3.69170191423629*^9, { 3.6917019442365475`*^9, 3.6917019464606147`*^9}, {3.691701989395655*^9, 3.6917019898213825`*^9}, {3.691702035682413*^9, 3.6917020417603245`*^9}, { 3.6917021036446543`*^9, 3.691702115190016*^9}, {3.69170247981176*^9, 3.691702481316004*^9}, {3.691704816446759*^9, 3.691704816986911*^9}, { 3.691704926093932*^9, 3.6917049326383023`*^9}, {3.6917050533583374`*^9, 3.691705053745577*^9}, {3.6917051572118797`*^9, 3.6917051594927626`*^9}, 3.6917052319959707`*^9, 3.6917056171932497`*^9, 3.6917064448920283`*^9, { 3.6917064771117663`*^9, 3.6917064827678156`*^9}, {3.691706538415479*^9, 3.691706539985358*^9}, {3.691706583378411*^9, 3.6917066136100154`*^9}, { 3.6917432704590144`*^9, 3.6917432707782555`*^9}, {3.691743343766247*^9, 3.691743344392556*^9}, {3.6917434971076355`*^9, 3.691743497598313*^9}, 3.6917441413214817`*^9, {3.6919406898893805`*^9, 3.691940695077531*^9}, { 3.691942478551902*^9, 3.691942510039181*^9}, 3.6919427825717573`*^9, { 3.69194366314049*^9, 3.691943667363592*^9}, {3.6919466818978987`*^9, 3.6919467035841503`*^9}, {3.6919489578665123`*^9, 3.691948963924165*^9}, { 3.6920167435458145`*^9, 3.692016769077887*^9}, {3.6920930412547493`*^9, 3.6920930431156673`*^9}}], Cell[BoxData["0.0036000000000000003`"], "Output", CellChangeTimes->{3.692420577588317*^9, 3.692430392886648*^9, 3.6925385791838946`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "402388.8250625605`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"PmaxOdber1", "\[Rule]", "155104.2882213009`"}], ",", RowBox[{"Baterie", "\[Rule]", "3.676660455263204`*^8"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.692420577588317*^9, 3.692430392886648*^9, 3.692538838937764*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "3.676660455263204`*^8", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "2", ",", "3.491194935999749`*^8", ",", "0", ",", "5.0338063458269864`*^7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "3", ",", "3.3057294167362934`*^8", ",", "0", ",", "1.0251766537807819`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "4", ",", "3.120263897472838`*^8", ",", "0", ",", "1.534095749901942`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "5", ",", "2.934798378209383`*^8", ",", "0", ",", "2.038860999869256`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "6", ",", "2.7493328589459276`*^8", ",", "0", ",", "2.4815954806058007`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "7", ",", "2.563867339682472`*^8", ",", "0", ",", "2.933191499803884`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "8", ",", "2.3784018204190165`*^8", ",", "0", ",", "3.456787519001967`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "9", ",", "2.192936301155561`*^8", ",", "0", ",", "3.972352768969281`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "10", ",", "2.0074707818921053`*^8", ",", "0", ",", "4.449287249705825`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "11", ",", "1.8220052626286498`*^8", ",", "0", ",", "4.8772063458269846`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "12", ",", "1.6365397433651942`*^8", ",", "0", ",", "5.361756211178913`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "13", ",", "1.4510742241017386`*^8", ",", "0", ",", "5.938244538069303`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "14", ",", "1.265608704838283`*^8", ",", "0", ",", "6.485932864959693`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "15", ",", "1.0801431855748275`*^8", ",", "0", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "16", ",", "1.4875939897588468`*^8", ",", "1.0803692696061751`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "17", ",", "1.895044793942866`*^8", ",", "2.2305231545969656`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "18", ",", "2.3024955981268853`*^8", ",", "3.3957693472800636`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "19", ",", "2.709946402310904`*^8", ",", "4.5079847707323927`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "20", ",", "3.117397206494923`*^8", ",", "5.619784809569337`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "21", ",", "3.524848010678942`*^8", ",", "6.750000233021667`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "22", ",", "3.661479210804778`*^8", ",", "7.637458831452082`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "23", ",", "3.6751423308173615`*^8", ",", "8.401440075910509`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "24", ",", "3.6765086428186196`*^8", ",", "9.169896661894813`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "25", ",", "3.6766452740187454`*^8", ",", "9.962463858954781`*^8", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "26", ",", "3.6766589371387583`*^8", ",", "1.081567904019924`*^9", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "27", ",", "3.6766603034507596`*^8", ",", "1.165295748140061`*^9", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "28", ",", "3.6766604400819594`*^8", ",", "1.2485526863982284`*^9", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "29", ",", "3.6766604537450796`*^8", ",", "1.3624511494548144`*^9", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "30", ",", "3.6766604551113915`*^8", ",", "1.4771526880681653`*^9", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "31", ",", "3.5996452029492533`*^8", ",", "1.6167465474673362`*^9", ",", "6.958990422619314`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "32", ",", "3.414179683685798`*^8", ",", "1.6167465474673362`*^9", ",", "8.342709518740475`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "33", ",", "3.228714164422343`*^8", ",", "1.6167465474673362`*^9", ",", "9.636982461015482`*^8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "34", ",", "3.0432486451588875`*^8", ",", "1.6167465474673362`*^9", ",", "1.0907440018675103`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "35", ",", "2.857783125895432`*^8", ",", "1.6167465474673362`*^9", ",", "1.2196589884027033`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "36", ",", "2.6723176066319767`*^8", ",", "1.6167465474673362`*^9", ",", "1.3450985903225114`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "37", ",", "2.486852087368521`*^8", ",", "1.6167465474673362`*^9", ",", "1.4635735768577044`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "38", ",", "2.3013865681050655`*^8", ",", "1.6167465474673362`*^9", ",", "1.5591885633928974`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "39", ",", "2.11592104884161`*^8", ",", "1.6167465474673362`*^9", ",", "1.666115857620398`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "40", ",", "1.9304555295781544`*^8", ",", "1.6167465474673362`*^9", ",", "1.7827354595402062`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "41", ",", "1.7449900103146988`*^8", ",", "1.6167465474673362`*^9", ",", "1.8946612153061683`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "42", ",", "1.5595244910512432`*^8", ",", "1.6167465474673362`*^9", ",", "2.0026131249182842`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "43", ",", "1.3740589717877877`*^8", ",", "1.6167465474673362`*^9", ",", "2.1134034960688617`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "44", ",", "1.1885934525243321`*^8", ",", "1.6167465474673362`*^9", ",", "2.2301338672194395`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "45", ",", "1.0031279332608765`*^8", ",", "1.6167465474673362`*^9", ",", "2.3501596229854016`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "46", ",", "8.17662413997421`*^7", ",", "1.6167465474673362`*^9", ",", "2.4622930710590563`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "47", ",", "6.321968947339654`*^7", ",", "1.6167465474673362`*^9", ",", "2.5729449806711726`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "48", ",", "4.467313754705098`*^7", ",", "1.6167465474673362`*^9", ",", "2.681893813360212`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "49", ",", "2.612658562070543`*^7", ",", "1.6167465474673362`*^9", ",", "2.7874364922030973`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "50", ",", "7.580033694359876`*^6", ",", "1.6167465474673362`*^9", ",", "2.8852253248921366`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "51", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "2.9786806758131614`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "52", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.084589906582392`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "53", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.195996060428546`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "54", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.313079137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "55", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.4375837527362385`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "56", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.5659375988900847`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "57", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.6901237527362385`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "58", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.804908368120854`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "59", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "3.916079137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "60", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "4.023636060428546`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "61", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "4.127136060428546`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "62", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "4.222286829659315`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "63", ",", "0.`", ",", "1.6167465474673362`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "64", ",", "4.074508041840192`*^7", ",", "1.7428388590433383`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "65", ",", "8.149016083680384`*^7", ",", "1.8635173244654942`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "66", ",", "1.2223524125520575`*^8", ",", "1.9812050206568809`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "67", ",", "1.6298032167360768`*^8", ",", "2.1009281014636521`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "68", ",", "2.037254020920096`*^8", ",", "2.2253450284242697`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "69", ",", "2.4447048251041153`*^8", ",", "2.350301955384887`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "70", ",", "2.8521556292881346`*^8", ",", "2.4729742669608893`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "71", ",", "3.2596064334721535`*^8", ",", "2.5959235016138144`*^9", ",", "4.302179137351623`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "72", ",", "3.074140914208698`*^8", ",", "2.5959235016138144`*^9", ",", "4.358332585425277`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "73", ",", "2.888675394945243`*^8", ",", "2.5959235016138144`*^9", ",", "4.413932187345085`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "74", ",", "2.703209875681788`*^8", ",", "2.5959235016138144`*^9", ",", "4.467510250803354`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "75", ",", "2.5177443564183322`*^8", ",", "2.5959235016138144`*^9", ",", "4.52002216041547`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "76", ",", "2.3322788371548766`*^8", ",", "2.5959235016138144`*^9", ",", "4.571620223873739`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "77", ",", "2.146813317891421`*^8", ",", "2.5959235016138144`*^9", ",", "4.622969056562778`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "78", ",", "1.9613477986279655`*^8", ",", "2.5959235016138144`*^9", ",", "4.674137889251818`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "79", ",", "1.77588227936451`*^8", ",", "2.5959235016138144`*^9", ",", "4.72583287578701`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "80", ",", "1.5904167601010543`*^8", ",", "2.5959235016138144`*^9", ",", "4.777167862322203`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "81", ",", "1.4049512408375987`*^8", ",", "2.5959235016138144`*^9", ",", "4.8272843873189335`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "82", ",", "1.2194857215741432`*^8", ",", "2.5959235016138144`*^9", ",", "4.884323989238742`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "83", ",", "1.0340202023106876`*^8", ",", "2.5959235016138144`*^9", ",", "4.9393697450047035`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "84", ",", "8.48554683047232`*^7", ",", "2.5959235016138144`*^9", ",", "4.9894170392322035`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "85", ",", "6.6308916378377646`*^7", ",", "2.5959235016138144`*^9", ",", "5.038273564228934`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "86", ",", "4.776236445203209`*^7", ",", "2.5959235016138144`*^9", ",", "5.086631627687203`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "87", ",", "2.9215812525686536`*^7", ",", "2.5959235016138144`*^9", ",", "5.131680460376243`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "88", ",", "1.0669260599340983`*^7", ",", "2.5959235016138144`*^9", ",", "5.177200062296051`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "89", ",", "0.`", ",", "2.5959235016138144`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "90", ",", "4.074508041840192`*^7", ",", "2.707948120882124`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "91", ",", "8.149016083680384`*^7", ",", "2.824071201688895`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "92", ",", "1.2223524125520575`*^8", ",", "2.9412465901879745`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "93", ",", "1.6298032167360768`*^8", ",", "3.0572589017639766`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "94", ",", "2.037254020920096`*^8", ",", "3.172232751801517`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "95", ",", "2.4447048251041153`*^8", ",", "3.284977371069827`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "96", ",", "2.8521556292881346`*^8", ",", "3.3921973749535217`*^9", ",", "5.229433878619786`*^9", ",", "0"}], "}"}]}], "}"}], ",", "6360.801214262925`", ",", "1018.4224568954211`", ",", "4874.253634824973`", ",", "105.49559818780335`", ",", "362.629524354727`", ",", "0", ",", RowBox[{"Cashflow", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3235977638947535`*^6"}], ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`", ",", "223523.1595989954`"}], "}"}], "]"}], ",", RowBox[{"-", "402388.8250625605`"}], ",", "223523.1595989954`"}], "}"}]], "Output", CellChangeTimes->{3.692420577588317*^9, 3.692430392886648*^9, 3.69253884063686*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.691706955581478*^9, 3.691706968991969*^9}, { 3.6917079965502605`*^9, 3.691708000741048*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.691691789075514*^9, 3.6916917964679384`*^9}, 3.6919401586386385`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sablona2", "=", RowBox[{"Boole", "[", RowBox[{"RotateLeft", "[", RowBox[{"sablonaDen", ",", "3"}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "posunuti", " ", "vysledu", " ", "na", " ", "puvodni", " ", "cas"}], "*)"}], "\[IndentingNewLine]", RowBox[{"tarify", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"sablona2", "*", "1000000"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"kapacita", " ", "[", "kWh", "]"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Opacity", "[", "0.01", "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pl1", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{ RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", "3600000"}], ",", "3"}], "]"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"kapacita", " ", "[", "kWh", "]"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pl2", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"Differences", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "}"}], ",", RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "]"}], "/", "ctvrthodina"}], "]"}], ",", "4"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{"prumVsedZimDen", ",", "3"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"PmaxOdebirany", ",", "96"}], "]"}], ",", "3"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "Bottom"}], "]"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"p\[RHacek]\[IAcute]kon", " ", "[", "W", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pl3", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"Differences", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"1", ",", "4"}], "]"}], "]"}], "}"}], ",", RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}]}], "]"}], "/", "ctvrthodina"}], "]"}], ",", "4"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{"prumVsedZimDen", ",", "3"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"PmaxOdebirany", ",", "96"}], "]"}], ",", "3"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "Bottom"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"p\[RHacek]\[IAcute]kon", " ", "[", "W", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"pl4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "5"}], "]"}], "]"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pl1", ",", "tarify"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pl2", ",", "tarify"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pl3", ",", "tarify"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.690825754978777*^9, 3.6908257738328834`*^9}, { 3.6908258059267087`*^9, 3.6908258685333743`*^9}, {3.6908298086439824`*^9, 3.6908298112781343`*^9}, 3.690829858623845*^9, 3.6908332664544134`*^9, { 3.6908339264902096`*^9, 3.6908339358897495`*^9}, {3.690834182131029*^9, 3.6908341899114695`*^9}, {3.690834234223115*^9, 3.6908342371836042`*^9}, { 3.6910767709267893`*^9, 3.691076774193976*^9}, {3.6910952541515975`*^9, 3.691095363037738*^9}, {3.6910954103323183`*^9, 3.691095474003773*^9}, { 3.6910957916984873`*^9, 3.691095825495735*^9}, 3.691095883081648*^9, { 3.6910961390946302`*^9, 3.6910961510333033`*^9}, {3.6912625776807756`*^9, 3.6912626324581995`*^9}, {3.6912680500009813`*^9, 3.6912682355757036`*^9}, {3.691268300262409*^9, 3.691268322735697*^9}, { 3.691268614316394*^9, 3.6912687092668304`*^9}, {3.691268943067219*^9, 3.6912689860826826`*^9}, {3.6912690441270065`*^9, 3.6912690614419985`*^9}, {3.6912692115245924`*^9, 3.69126929141317*^9}, { 3.6912727157486343`*^9, 3.691272750845647*^9}, {3.691274450085412*^9, 3.691274492740855*^9}, {3.691274524147654*^9, 3.6912745387534904`*^9}, { 3.6912746396612697`*^9, 3.6912747427831755`*^9}, {3.6912747979293327`*^9, 3.6912748574307413`*^9}, {3.691274912316893*^9, 3.691274913049926*^9}, 3.691274943664678*^9, {3.6912751538877172`*^9, 3.691275188626706*^9}, { 3.6912752801409492`*^9, 3.691275301299158*^9}, 3.691275333328993*^9, { 3.69127552624305*^9, 3.6912756507071686`*^9}, {3.6912757011300545`*^9, 3.6912759031506243`*^9}, 3.691275955109603*^9, 3.6912763529063826`*^9, 3.6912763864933047`*^9, {3.691276439008312*^9, 3.6912764485488577`*^9}, { 3.6912765001668224`*^9, 3.691276500702846*^9}, 3.691276616012449*^9, { 3.6912766609000254`*^9, 3.6912767982240143`*^9}, 3.691276859801543*^9, { 3.691276891812374*^9, 3.691276962336413*^9}, {3.6912770294942694`*^9, 3.6912770888046556`*^9}, {3.691277151448243*^9, 3.691277201384104*^9}, { 3.691277261295534*^9, 3.691277285274906*^9}, {3.69127733195159*^9, 3.691277333055644*^9}, {3.6912773742360015`*^9, 3.6912774203876443`*^9}, 3.6912774514574237`*^9, {3.691277876538767*^9, 3.691278004164075*^9}, { 3.691302852497996*^9, 3.691302853407049*^9}, {3.6913028901981554`*^9, 3.6913028924062824`*^9}, {3.6913030141571827`*^9, 3.6913030148362117`*^9}, {3.69130309915305*^9, 3.6913030998260794`*^9}, { 3.691303644256085*^9, 3.691303645524158*^9}, {3.6913038504088893`*^9, 3.69130386850893*^9}, {3.6913039034349356`*^9, 3.691303920917929*^9}, { 3.691303952350727*^9, 3.6913039897158666`*^9}, {3.69130402176171*^9, 3.691304022508747*^9}, {3.6913040583107967`*^9, 3.691304099848174*^9}, { 3.691334024657019*^9, 3.691334043035381*^9}, {3.6913343172288017`*^9, 3.6913343369069157`*^9}, {3.6913866885927734`*^9, 3.69138669029471*^9}, 3.6916546347222557`*^9, {3.6916977430989437`*^9, 3.691697770383872*^9}, { 3.692093068971364*^9, 3.6920930970080037`*^9}, {3.692381438365781*^9, 3.6923814697805724`*^9}, {3.6923816315808372`*^9, 3.692381675825379*^9}, { 3.6923817351937723`*^9, 3.6923817473504753`*^9}, {3.692381817612295*^9, 3.692381823075618*^9}, {3.6923819166118584`*^9, 3.6923819197640495`*^9}, { 3.6925390860089145`*^9, 3.692539121630962*^9}, 3.692539183334485*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1A9M1GUcx/EHDqVsDk2x7I7s8B8xcxc5QcEDhLswUDn+qICTE6Us4G61 2QSbPnJQZolS02pMYYr8seOf3skfJVSOhPh7cHIKCgOmlm1QgmwSRs/nodie brvdXvf+3Xa/5/v8HnmCPiLRkRCiZW98EkJPGl/7LVCbMGpx/zE6gH3hUMI8 +1xrTNLuKGb6MWwcKBy+/Eok+iCskacbJls16BGlzOPana+qMsLR6+G1gSmx 0v1b0N8pY6bX5RnGgVD0fLjZv7tkw5ZN6AvLmV3rjtnbatTomXC80t9BuzIY /SlcXDvq+ee3gejvVzA/Sg0vdnJQonfDU3uTpeuKcT159xLzS8cVgyOa99Ar 4UXmsaKCia3oHpeZT+ruVZZaI9C/h0+lK6VzCvj9v2hizjmddygxbQd6Kjyq 8+4PTYlBfwzv0SyQnc6EaayZeb10fFhylPdm+ExCgdtGbup7hXllR0Z0yHQ3 wr8WmsamTWWVzAvtuU6bpvtxuCXOe/a06XNYJdP+a6KrYna3LP9i1xT/f31w o4TICs3b0bdWM6cE9ZSPJG1Dr4MXGEwqH3d+f4oa5uqbWT30DuZJ8+Bdjh/q m7KwHmT+VWbJxiCnl1V8vkdgjcTXyzzO1+8JnJM+Eqfesxk94RrzA4f8THs7 1pt0wYojO8r2+YWgB9Uyp5G5d58VqdBNsOXwDcevXIPQl/3E7DK1f5UsPQD9 FHxpMsoYe98XfVYds/qv2qnPrqxF/xTufbYiMvfE2+gP4f4/lmw2WD3Qt19n nn9v6NEJZzf0W3CT0SXJ6w5B97nBTGZetEg0WXxT7F+KJhP/6x/Vi71XNA21 iP2aaLqqQexnRNO5P4v9kGg6DL+VN0/ae24F7i/+1oyxXrQdlh8Ii1o2wdc3 oHGm43mj5bBPo20gOzQMXd6E/cWvx/NMs2GPr0srD7fx59/xl5nf8/31CdzZ /7hsaQzfX0PwgSUNwcku/PyIbGZ+PT73rqmB7y8LXH82Vff8IN9fa1qY9/VF StRe/Py4AEv9dircrHx/ubYyJ16dF1u6gZ8fn8Nl6xsM/hf5/hqHJ6pTSzoW 8fPjgzbm4HWr7bsNfH/Z4ayqQTI6wu8/pJ25Qr86+oVqP/QqWK37rsjzG2/0 NzuYe5LJZFiSF/oP8P3uzrN9Rz3R51iZnW35qqW+b6CnwZbg3opcszP671Zx PnGd4nxaOsX5+HWJ8ynpEufjZhPnk2UT5/O3TZyP/jaz/vze/86Pfth1SJmT rcR5QcK7mWvcFyt6xrYF/AOqayRL "]]}}}, {}}, {{}, GraphicsComplexBox[CompressedData[" 1:eJxd0j0oBGAYwPGHMlAGxUAMykBJikExkIEy0BkUA12hDC4GxaBHoQzEoBiU gTLc+TzucJyP832czzMoilIog2JQhDrxf996e/v3W56e3mSrzVIbLiI13/fn FdF+e8JDgfydMAdam9hya7hlkr7J1qwp+hhbY6fpXWx9NbxuJtTamfH9apAt RbN0F1tS5+hDbIl00lvZ8mh45Tz9gK25C3Q7WxNd9F62fhje6OZ+rtlSukj3 siVziT7KlphlegdbXgy3euhnbC1coTvZmrJKH2RrhJfewtZ7wyvW6DtsyVmn T7AlfoPew5Z3wxs26VdsLfHRPWxN36KPsDV6m97+26H/8cyW6h16gC35u/Rp tiTv0QfYEr7P+ZrZcmd4+QHdx9ZsP32crXGH9G62vhlef0S/ZEtxgO5mS9ox fZgtUSf0NrY8nXB/Vafcn5+teWd0B1uTzul9bP003HbB+W7YUhb811//yDpX "], {{{}, { EdgeForm[], Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[{{59, 68, 67, 66, 65, 64, 63, 62, 61, 60}, {85, 94, 93, 92, 91, 90, 89, 88, 87, 86}}], PolygonBox[{{11, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12}}]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[0.01]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}}}], {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694281*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 102.12945709064455`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {3.3694281*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ RowBox[{"kapacita", "(", "kWh", ")"}], TraditionalForm], None}, { None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Baterie\"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 102.12945709064455`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox["\"Nizsi tarif\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6924208198303256`*^9, 3.692430616719755*^9, 3.6925391140445166`*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1GtIU2Ecx/H/VoEJvkha1EhB6OLKYqAvilysggoEW/qiTKihLSmqUYQt iXp8URQsWS8GRUiDCha4tnTeUtOl5dYsLS8J0Z3CLrSQvBTNev4PQf3O4DA+ 5zvO83DO2T+rzFnk0BORXR78TSQ8dcaPG+jfRxcAiyNoeqvpRbewd6NFbhD7 dbSYH8J+Bi0mNH3fbWmHo6HKU5i0yj7CTujds1fn/pamLfXS4e2u2K8rbNHM jrpNL5pXznDPbpC2rdBXDGezxSX2AHe/6nPD0uJHPGcsfZr7CTZ5U94cbP3O /RPbnxlKrR5li12N0ueWBUu+nZ7gHmebVy1PGpdOcV/XJO2zBHXOpknudco3 ozvbvGyxuJnXL414at+r9S+wrRtHK8sy1P6TbPP05kJ9Qs/34XAL3p+XaNrW ir0TTeY72H1omteGvRpN45pe1o59EC02dWAPo8WSu9i9aDGnE3slWnzQ9B1d 2HvRtCaC3Y+mRfewn0fTT00/0I39OVoU9GBvR4uc+9hr0SLtAfZTylcz3XlG nTwvvrLHyg+51u4m/t2eXmnPgt7GyBf1/vSzfcf9pjSL6taodKi+xJLymi1C 7C7p6LjqWbG/1z92TfWLbJE/ZUgPqK5/iPs7iqZ3ml4cx96DFnl92G+gheER 9rNoManpFY+xP0PT1n7sLWgyDWC/jKbUJ9ir0PSZ7ZPz52S5mi+lT/n/nLAV G4WaT31smiXnVUw9n/xB9nrLwv0u1QNsu29vTYFZ9Ywhfj58Pa+aDzVsO88v g5p/M0O4vnMY9/cKTbaR//wHhSF/EQ== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9lFlIlFEYhn9tLBSMTL1omQtpcQIjWy6E8cJQaipSsSKri2zaJCQpwpYL +YUyxkgMEYqYEjIM0nRcchmX1HFcx8m1qbDCocicokzH0tTO93I+L0Seec/7 bef7T5gxPemsr6IoKeKP/iuKmleydnz3d1u8J65uMkb84FMqGErAL8HqJeK3 JrPL30CsjC1x9G/Sk16wX0OstBH7UIA/8O8sE3zH7DKZn/wkvYg4wxieMRZB +dSQcsEkJz+fIv3WErsRf5rYEqy3BI8i/zmLYGE3Fi9H/BEL559A/XsrBFfQ +cPw1xC3x3tsfW74dZWCEzzC8An++5Wsp8DvX8Xxp+C/XiXnoSSivm/EOtGA 10GsHq8WfJX6yZwmvaeaz2+aIV3/UnCiyJf20kt6CXGoKM9aQKyurxGcQw1/ XiD9bo2MZ9Qukj5fI+tNm11GcS/WCraLenMNfoLVD8QhIt5ckIb0hDp5P/ua 6bzaTBwtBrhdgR5ZL5jav3kbeiGxngZc4Et6kJX7maF61CyrjG/V+JA+aeV5 H6HzqrFBsIvyVUAfbJDzjNcRq7GNsr/RHOhVjXIftMfg39gk6zX1IH9BE+9f Hfx+zTLeymz4M5r5/vZD/0J8mu5rSCH96Cu5P65czK+DOTl1juYb1cL3Xf+P 9Gctsn5TFOa/plX2Z2uF39TK++RG/FliQmsq8l9ok/PUuKC/b5P7E74B/gM2 nr8O8Rtscp76rfOkR7Rzv8FUj2Jul+ctzr+kB9oFl1PCEuxXpp3Pe4jVH3au /wr282QH91+E/XV2cP4d0GM6BZ+h+q7BX97J8zMjflgX7+8i9vteF9e7Grpv N+ePhX65m98DLeK7u2X84jzkP9TD+70H74OtR+YLXwF9Vy/XO43v7ynxY7qv cbwPoQ7ex0D4s5d4CrrXwftYCP/5PsHvqJ4s1PemT74f+V74DU75/WY8hL/W yfdtgH/La65vM/QHxI+onhi8HwH9ct7+p/B+3OiX9x+3CvpEv9yX/HXwnxjg +Uchf+8An89C/9GDPM9I6KWD/P1/hV87xPEOor7cId5/B72n6gIxles1In/6 MN9nGfwfh/n72ob4iSP8/Y1MxvwHH3B71Q== "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdyT0oBHAYx/HHlYEyKAZiuDIQg2JQDC6FUugMioGuUAYXg2LQY6AMxKAY lIEy3HHez/vLHef93RkURSkUpUiKnM33Pzw9fX8fq8Npr7GISHXo/r6I9rri H22pn/nFlleLLTSEudHayJY7w+3jdB9bMyboI2yN8dA72PpueO0kPciWgin6 PFuSp+kDbImYobew5cnwiln6Pluz5+gutibM07vZ+m14g5d+w5aSBfoaW9IX 6cNsiV6it7PlzXDHMv2crXkr9Bm2Jq3S+9kavkZvZuuD4eXr9ABbsjboY2yJ 26R3seXL8Hof/ZqtRX76MlvTtuhDbI3aprex9cXwqgD9mC25O3QPW6y79D62 WPboTWy5N7xsn+5na+YBfZStsYf0TrZ+GF53RL9iS+Ex3cuWlBP6IFsiT+mt bHk2vPKMfsDWnHO6m62JF/Qetv4Y7ryk37KlNPivfwGIDiQm "]]}}}, {}}, {{}, GraphicsComplexBox[CompressedData[" 1:eJxd0j0oBGAYwPGHMlAGxUAMykBJikExkIEy0BkUA12hDC4GxaBHoQzEoBiU gTLc+TzucJyP832czzMoilIog2JQhDrxf996e/v3W56e3mSrzVIbLiI13/fn FdF+e8JDgfydMAdam9hya7hlkr7J1qwp+hhbY6fpXWx9NbxuJtTamfH9apAt RbN0F1tS5+hDbIl00lvZ8mh45Tz9gK25C3Q7WxNd9F62fhje6OZ+rtlSukj3 siVziT7KlphlegdbXgy3euhnbC1coTvZmrJKH2RrhJfewtZ7wyvW6DtsyVmn T7AlfoPew5Z3wxs26VdsLfHRPWxN36KPsDV6m97+26H/8cyW6h16gC35u/Rp tiTv0QfYEr7P+ZrZcmd4+QHdx9ZsP32crXGH9G62vhlef0S/ZEtxgO5mS9ox fZgtUSf0NrY8nXB/Vafcn5+teWd0B1uTzul9bP003HbB+W7YUhb811//yDpX "], {{{}, { EdgeForm[], Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[{{59, 68, 67, 66, 65, 64, 63, 62, 61, 60}, {85, 94, 93, 92, 91, 90, 89, 88, 87, 86}}], PolygonBox[{{11, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12}}]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[0.01]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}}}], {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694281*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> { FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin -> {3.3694281*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ RowBox[{"p\[RHacek]\[IAcute]kon", "(", "W", ")"}], TraditionalForm], None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Ni\[ZHacek]\[SHacek]\[IAcute] tarif \"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox[ TemplateBox[{ "\"Odeb\[IAcute]ran\[YAcute] v\[YAcute]kon v NT \"", "\"Pr\[URing]b\[EHacek]h bez baterie\"", "\"Max odeb\[IAcute]ran\[YAcute] v\[YAcute]kon\""}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm], FormBox[ FormBox["\"Nizsi tarif\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#3, DefaultBaseStyle -> "LabeledLabel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"], ""}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"{", RowBox[{ RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}], ",", RowBox[{"Placed", "[", RowBox[{#3, ",", "After"}], "]"}]}], "}"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6924208198303256`*^9, 3.692430616719755*^9, 3.692539114416548*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlGlIlFEUhq/bDxUJtWihQktzocIodGAkJiK1TcMgUSMnwZKktCijaLn+ 0DTQjBJyI4uKkjEdMzW1nHRcymU0czSkkoxytyTLTKfue3CC68AwPN9zz/ne 735zj2t0fGiMJWNMLb74ZYxnalYMbVuWmzJQED2iEhcsigSrHIfsltoMCuYn wd/c3Gq8OZh9Ag+CY0fhQx+b66epvh6sQH3/EPzmYsFBe3JWh/p9hb8HdjH6 /erbOQy/uERwQt3sjuaACfhksBpcPgY/BS5QRB3fWoh+7IhWMPv/4UaZWWCp 7CtkZp5PZH9LZmZbJvtzMrPhBT7iqexbZObKctlrZOYrK2SfLjOfW+BPVGK/ bzy4clNvKa7zD+DYy3FGlmGBdSHPsL/tYbkhSjCvBWdOtc35XiDvU4X3Y2tb fNWKfAE4VfhyRwbvWI36kdw/YxO/VcIngXUmoybJYk4wmwQnODkdyrr7Fz66 Bv+XvGLf2wdN8F1gl3V7Fz0Kwnq+/Tnq692zGx3Il5k5oJDq3V7M570WSPfP AutSTyfbx2E9t6lFf9HPy5rqE4kPm9Z8Tqf+X8C8R70r4s4sfJjO7FNm4JvA uo3TZ36E43mY4qXg/uBRfXsV1vOHYF1afm+agvovr8N+N4gFdZQvDVzirNQ6 D1C+GbCLwOpY2r9j9einDx617iXfB1Z7JEZ7rKX63Xrk0TorN3lS/xowE/XK DZR/fcP8++XOlD+/YX691kD779CIfLi/Zgr+UqP8/xiXmUU1yd4gM1M1y75E Zub6SvbXZWaWr8E432fHke8UsbuYB95gNgDmUd2GGEc6v/tb4HH+L2JeMH2L 2ZswL/iWVjDOex/Nj/tgVi+4jvySNvhuMS/sqT4FzDA/3pH/SYz540P1R9vN eSYpXw8x5sd75GFBBvSbKwq38qD6SuIcUZ+EecS8Osz5/Gk+ZXeY8yXQ/LPr NPcvpfl4HsyTtJGlByjfSKe8f5Fv5P1rlZn7d8m+SGa+6q3sM2TmpgU+vluw jVrkD6Hn+wj+jnkdQvn2GQWH4n3kjaj+AROTAZI= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9lFlIlFEYhn9tLBSMTL1omQtpcQIjWy6E8cJQaipSsSKri2zaJCQpwpYL +YUyxkgMEYqYEjIM0nRcchmX1HFcx8m1qbDCocicokzH0tTO93I+L0Seec/7 bef7T5gxPemsr6IoKeKP/iuKmleydnz3d1u8J65uMkb84FMqGErAL8HqJeK3 JrPL30CsjC1x9G/Sk16wX0OstBH7UIA/8O8sE3zH7DKZn/wkvYg4wxieMRZB +dSQcsEkJz+fIv3WErsRf5rYEqy3BI8i/zmLYGE3Fi9H/BEL559A/XsrBFfQ +cPw1xC3x3tsfW74dZWCEzzC8An++5Wsp8DvX8Xxp+C/XiXnoSSivm/EOtGA 10GsHq8WfJX6yZwmvaeaz2+aIV3/UnCiyJf20kt6CXGoKM9aQKyurxGcQw1/ XiD9bo2MZ9Qukj5fI+tNm11GcS/WCraLenMNfoLVD8QhIt5ckIb0hDp5P/ua 6bzaTBwtBrhdgR5ZL5jav3kbeiGxngZc4Et6kJX7maF61CyrjG/V+JA+aeV5 H6HzqrFBsIvyVUAfbJDzjNcRq7GNsr/RHOhVjXIftMfg39gk6zX1IH9BE+9f Hfx+zTLeymz4M5r5/vZD/0J8mu5rSCH96Cu5P65czK+DOTl1juYb1cL3Xf+P 9Gctsn5TFOa/plX2Z2uF39TK++RG/FliQmsq8l9ok/PUuKC/b5P7E74B/gM2 nr8O8Rtscp76rfOkR7Rzv8FUj2Jul+ctzr+kB9oFl1PCEuxXpp3Pe4jVH3au /wr282QH91+E/XV2cP4d0GM6BZ+h+q7BX97J8zMjflgX7+8i9vteF9e7Grpv N+ePhX65m98DLeK7u2X84jzkP9TD+70H74OtR+YLXwF9Vy/XO43v7ynxY7qv cbwPoQ7ex0D4s5d4CrrXwftYCP/5PsHvqJ4s1PemT74f+V74DU75/WY8hL/W yfdtgH/La65vM/QHxI+onhi8HwH9ct7+p/B+3OiX9x+3CvpEv9yX/HXwnxjg +Uchf+8An89C/9GDPM9I6KWD/P1/hV87xPEOor7cId5/B72n6gIxles1In/6 MN9nGfwfh/n72ob4iSP8/Y1MxvwHH3B71Q== "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdyT0oBHAYx/HHlYEyKAZiuDIQg2JQDC6FUugMioGuUAYXg2LQY6AMxKAY lIEy3HHez/vLHef93RkURSkUpUiKnM33Pzw9fX8fq8Npr7GISHXo/r6I9rri H22pn/nFlleLLTSEudHayJY7w+3jdB9bMyboI2yN8dA72PpueO0kPciWgin6 PFuSp+kDbImYobew5cnwiln6Pluz5+gutibM07vZ+m14g5d+w5aSBfoaW9IX 6cNsiV6it7PlzXDHMv2crXkr9Bm2Jq3S+9kavkZvZuuD4eXr9ABbsjboY2yJ 26R3seXL8Hof/ZqtRX76MlvTtuhDbI3aprex9cXwqgD9mC25O3QPW6y79D62 WPboTWy5N7xsn+5na+YBfZStsYf0TrZ+GF53RL9iS+Ex3cuWlBP6IFsiT+mt bHk2vPKMfsDWnHO6m62JF/Qetv4Y7ryk37KlNPivfwGIDiQm "]]}}}, {}}, {{}, GraphicsComplexBox[CompressedData[" 1:eJxd0j0oBGAYwPGHMlAGxUAMykBJikExkIEy0BkUA12hDC4GxaBHoQzEoBiU gTLc+TzucJyP832czzMoilIog2JQhDrxf996e/v3W56e3mSrzVIbLiI13/fn FdF+e8JDgfydMAdam9hya7hlkr7J1qwp+hhbY6fpXWx9NbxuJtTamfH9apAt RbN0F1tS5+hDbIl00lvZ8mh45Tz9gK25C3Q7WxNd9F62fhje6OZ+rtlSukj3 siVziT7KlphlegdbXgy3euhnbC1coTvZmrJKH2RrhJfewtZ7wyvW6DtsyVmn T7AlfoPew5Z3wxs26VdsLfHRPWxN36KPsDV6m97+26H/8cyW6h16gC35u/Rp tiTv0QfYEr7P+ZrZcmd4+QHdx9ZsP32crXGH9G62vhlef0S/ZEtxgO5mS9ox fZgtUSf0NrY8nXB/Vafcn5+teWd0B1uTzul9bP003HbB+W7YUhb811//yDpX "], {{{}, { EdgeForm[], Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[{{59, 68, 67, 66, 65, 64, 63, 62, 61, 60}, {85, 94, 93, 92, 91, 90, 89, 88, 87, 86}}], PolygonBox[{{11, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12}}]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[0.01]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}}}], {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694281*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> { FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin -> {3.3694281*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ RowBox[{"p\[RHacek]\[IAcute]kon", "(", "W", ")"}], TraditionalForm], None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Vy\[SHacek]\[SHacek]\[IAcute] tarif \"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox[ TemplateBox[{ "\"Odeb\[IAcute]ran\[YAcute] v\[YAcute]kon v VT \"", "\"Pr\[URing]b\[EHacek]h bez baterie\"", "\"Max odeb\[IAcute]ran\[YAcute] v\[YAcute]kon\""}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm], FormBox[ FormBox["\"Nizsi tarif\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#3, DefaultBaseStyle -> "LabeledLabel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"], ""}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"{", RowBox[{ RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}], ",", RowBox[{"Placed", "[", RowBox[{#3, ",", "After"}], "]"}]}], "}"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6924208198303256`*^9, 3.692430616719755*^9, 3.692539114548545*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cenaRozbor", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cenaRozbor", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cenaRozbor", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cenaRozbor", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cenaRozbor", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6903154410275393`*^9, 3.6903154940665665`*^9}, { 3.690315550389792*^9, 3.6903156940320187`*^9}, {3.6903180034862733`*^9, 3.6903180575163774`*^9}, {3.692539149786563*^9, 3.692539162053277*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za NT : \"\>", "\[InvisibleSpace]", "1018.4224568954211`"}], SequenceForm["Cena za NT : ", 1018.4224568954211`], Editable->False]], "Print", CellChangeTimes->{3.692420820783451*^9, 3.6924306177043447`*^9, 3.692539153272764*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za VT : \"\>", "\[InvisibleSpace]", "4874.253634824973`"}], SequenceForm["Cena za VT : ", 4874.253634824973], Editable->False]], "Print", CellChangeTimes->{3.692420820783451*^9, 3.6924306177043447`*^9, 3.6925391532777643`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za jistic : \"\>", "\[InvisibleSpace]", "105.49559818780335`"}], SequenceForm["Cena za jistic : ", 105.49559818780335`], Editable->False]], "Print", CellChangeTimes->{3.692420820783451*^9, 3.6924306177043447`*^9, 3.692539153283764*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za baterii : \"\>", "\[InvisibleSpace]", "362.629524354727`"}], SequenceForm["Cena za baterii : ", 362.629524354727], Editable->False]], "Print", CellChangeTimes->{3.692420820783451*^9, 3.6924306177043447`*^9, 3.692539153288766*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena celkem : \"\>", "\[InvisibleSpace]", "6360.801214262925`"}], SequenceForm["Cena celkem : ", 6360.801214262925], Editable->False]], "Print", CellChangeTimes->{3.692420820783451*^9, 3.6924306177043447`*^9, 3.692539153293764*^9}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "vykresleni", " ", "ceny", " ", "pri", " ", "zmene", " ", "kapacitz", " ", "baterie", " ", "a", " ", "delsi", " ", "doba", " ", "trvani", " ", "pro", " ", "vykresleni"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"grafMinim2", "=", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "maxPrikon", ",", "Baterie", ",", "prumVsedZimDen", ",", "False", ",", "0.05"}], "}"}], "]"}], "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"maxPrikon", ",", "150000", ",", "200000"}], "}"}], ",", RowBox[{"{", RowBox[{"Baterie", ",", "10000", ",", "1000000000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "0"}], "}"}]}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "maxPrikon", ",", "Baterie", ",", "prumVsedZimDen", ",", "False", ",", "0.03"}], "}"}], "]"}], "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"maxPrikon", ",", "150000", ",", "200000"}], "}"}], ",", RowBox[{"{", RowBox[{"Baterie", ",", "100000", ",", "1000000000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "30000"}], "}"}]}]}], "]"}], "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.6900483474789224`*^9, {3.690048384103031*^9, 3.690048396260725*^9}, { 3.690048509452198*^9, 3.6900485236750135`*^9}, {3.6901266505829153`*^9, 3.6901266928001204`*^9}, {3.690126774045521*^9, 3.6901268965773687`*^9}, 3.690126938843231*^9, {3.6901274526010437`*^9, 3.6901275146915894`*^9}, { 3.6901275559259524`*^9, 3.690127570999815*^9}, {3.6901276330743685`*^9, 3.6901277329100866`*^9}, {3.69012859264993*^9, 3.6901285929369364`*^9}, { 3.690128688342409*^9, 3.6901287196848183`*^9}, {3.6901287497751703`*^9, 3.6901287632481556`*^9}, {3.690128796223348*^9, 3.6901288003053217`*^9}, { 3.690128841474455*^9, 3.6901288420028367`*^9}, {3.6901289289311233`*^9, 3.6901289292904587`*^9}, {3.6901290476963224`*^9, 3.6901290524244633`*^9}, {3.690129317126386*^9, 3.690129317517011*^9}, { 3.6901294154542694`*^9, 3.690129454071127*^9}, {3.690129555081045*^9, 3.690129560224682*^9}, {3.6901296812299104`*^9, 3.6901296985279107`*^9}, { 3.6901298051189995`*^9, 3.6901298344157405`*^9}, 3.6901346643785954`*^9, { 3.690134902533997*^9, 3.690134902771003*^9}, 3.6901350484024057`*^9, { 3.6901351404430723`*^9, 3.6901351841885567`*^9}, 3.6902147103685675`*^9, { 3.690221306955216*^9, 3.690221312436301*^9}, 3.6902240317251234`*^9, { 3.690307004024792*^9, 3.6903070049258432`*^9}, {3.6903070980261855`*^9, 3.690307101609379*^9}, {3.690307174643808*^9, 3.690307175816929*^9}, { 3.6903171096480875`*^9, 3.690317115977447*^9}, {3.690317162160102*^9, 3.6903171632971587`*^9}, 3.6908208923039246`*^9, {3.6908243874236755`*^9, 3.690824393813294*^9}, {3.690824483111308*^9, 3.6908244845694017`*^9}, { 3.690824523122384*^9, 3.690824523305034*^9}, {3.6908249006230307`*^9, 3.690824905471309*^9}, 3.690826000086006*^9, {3.690826123031049*^9, 3.690826124863162*^9}, 3.690826208222927*^9, {3.690826254229561*^9, 3.6908262684833775`*^9}, 3.690830640168327*^9, {3.6908312408530455`*^9, 3.6908312410980496`*^9}, 3.6908314292203493`*^9, 3.6908336920487967`*^9, { 3.6909603773405724`*^9, 3.6909603879171762`*^9}, 3.6909628614282413`*^9, 3.6909629984750896`*^9, 3.6909630958296742`*^9, 3.6909640447961087`*^9, 3.6909641267077894`*^9, 3.6909642243253913`*^9, 3.6909643185367875`*^9, { 3.690964502466319*^9, 3.6909645078626194`*^9}, {3.690964583744964*^9, 3.6909645858570843`*^9}, {3.690964818785424*^9, 3.6909648193344655`*^9}, { 3.690964940148384*^9, 3.690964940853414*^9}, {3.6909650094386835`*^9, 3.6909650591365285`*^9}, {3.690965208270069*^9, 3.6909652116462727`*^9}, 3.69096529439326*^9, {3.6909653819092607`*^9, 3.6909653831348767`*^9}, { 3.690965462904956*^9, 3.690965464730649*^9}, 3.6909655169609203`*^9, 3.690966075530486*^9, {3.691086228862983*^9, 3.691086253111375*^9}, { 3.69108692521887*^9, 3.6910869335073357`*^9}, {3.691090989050644*^9, 3.691090995834796*^9}, {3.691092345600073*^9, 3.691092354522476*^9}, { 3.69109318102752*^9, 3.691093191553522*^9}, {3.6913378638219614`*^9, 3.691337889427492*^9}, {3.6913381097594533`*^9, 3.6913381106128335`*^9}, { 3.6913389741395674`*^9, 3.6913390351092405`*^9}, {3.691339902364126*^9, 3.691339909093281*^9}, {3.691345176542034*^9, 3.691345180524119*^9}, { 3.691650839097482*^9, 3.69165084674792*^9}, 3.691651087515709*^9, { 3.6916928587746506`*^9, 3.6916928666150885`*^9}, 3.6916933181679583`*^9, { 3.6916941617982693`*^9, 3.6916941806973524`*^9}, 3.691694222096712*^9, { 3.691694448951703*^9, 3.691694455652088*^9}, {3.691694633429267*^9, 3.6916946383555603`*^9}, {3.6916948191669035`*^9, 3.6916948207250066`*^9}, {3.6917021380369596`*^9, 3.6917021395533285`*^9}, {3.6917025899266863`*^9, 3.6917025909229717`*^9}, 3.69185083473149*^9, {3.6919356725551023`*^9, 3.6919356990886936`*^9}, 3.6919494266694827`*^9, {3.691949899259019*^9, 3.6919499602663975`*^9}, { 3.69195005436789*^9, 3.6919501208412876`*^9}, {3.6919506871415205`*^9, 3.6919507717968993`*^9}, {3.6919508051133313`*^9, 3.6919508140512085`*^9}, {3.691950874168408*^9, 3.6919509311632967`*^9}, { 3.691951182952227*^9, 3.6919511849393587`*^9}, {3.6919512319357605`*^9, 3.69195123929591*^9}, {3.691951346909378*^9, 3.6919513731568246`*^9}, { 3.691951471663029*^9, 3.6919515247382517`*^9}, {3.691951861376048*^9, 3.69195186621587*^9}, {3.6919525815720186`*^9, 3.691952588500349*^9}, { 3.691952635847147*^9, 3.691952641978198*^9}, {3.691952973182666*^9, 3.691952993848701*^9}, {3.691953687668167*^9, 3.6919537437222404`*^9}, { 3.6919542383051753`*^9, 3.691954262890942*^9}, {3.6919544303185034`*^9, 3.691954453787243*^9}, {3.6919545824162254`*^9, 3.6919546002842913`*^9}, { 3.6919548125750475`*^9, 3.6919548137491713`*^9}, 3.6919559588878117`*^9, { 3.691956320285825*^9, 3.6919563626227984`*^9}, {3.69195806976068*^9, 3.69195807332512*^9}, 3.6919937406208696`*^9, {3.692093148130314*^9, 3.692093156433696*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Show", "[", RowBox[{"grafMinim2", ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold", ",", "Black"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold", ",", "Black"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold", ",", "Black"}], "]"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"grafMinim2", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "*)"}]], "Input", CellChangeTimes->{{3.691956068138297*^9, 3.6919561129785714`*^9}, { 3.6919561697026014`*^9, 3.6919561698970284`*^9}, {3.6919562297445154`*^9, 3.691956307548774*^9}, {3.691960447924862*^9, 3.6919604550012527`*^9}, { 3.691960497698954*^9, 3.6919606409083233`*^9}, {3.6919608671377277`*^9, 3.6919609231194024`*^9}, 3.691960988558627*^9, {3.691961049916616*^9, 3.6919611504060917`*^9}, {3.6919612925783763`*^9, 3.691961298717393*^9}, { 3.6919890870243196`*^9, 3.691989092974577*^9}, 3.6920931702011285`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"prubeh", " ", "bez", " ", "baterie"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BezBaterieCena", "=", RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxOdber", ",", "0", ",", "prumVsedZimDen", ",", "True", ",", "0.05"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"BezBaterieCena", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"BezBaterieCena", "[", RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"BezBaterieCena", "[", RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"BezBaterieCena", "[", RowBox[{"[", "6", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"BezBaterieCena", "[", RowBox[{"[", "7", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"BezBaterieCena", "[", RowBox[{"[", "7", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", "3600"}], ",", "prumVsedZimDen"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"kapacita", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"Differences", "[", RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "/", "ctvrthodina"}]}], "]"}], ",", "prumVsedZimDen"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], RowBox[{"(*", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "*)"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"Differences", "[", RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "/", "ctvrthodina"}]}], "]"}], ",", "prumVsedZimDen", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{ RowBox[{"Differences", "[", RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "/", "ctvrthodina"}]}], "]"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], RowBox[{"(*", RowBox[{",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "*)"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "5"}], "]"}], "]"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], ",", RowBox[{"{", RowBox[{"p3", ",", "p4"}], "}"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6903131337025957`*^9, 3.6903131782801466`*^9}, { 3.6903132083428693`*^9, 3.6903132535844603`*^9}, {3.6903134239102154`*^9, 3.6903134244182434`*^9}, {3.690313555066725*^9, 3.6903135749608746`*^9}, { 3.690314091900468*^9, 3.6903140978108053`*^9}, {3.6903158297547913`*^9, 3.690315858427442*^9}, {3.6903159819755087`*^9, 3.6903159834985933`*^9}, { 3.6903160173485346`*^9, 3.690316115527156*^9}, {3.6903162802545896`*^9, 3.6903163479344654`*^9}, {3.690317942022753*^9, 3.690317953704421*^9}, { 3.6908195984574943`*^9, 3.69081960224772*^9}, {3.691093450572266*^9, 3.6910934556315565`*^9}, {3.691095529224422*^9, 3.6910955817217855`*^9}, { 3.691095616521264*^9, 3.6910956169322205`*^9}, {3.691095680920988*^9, 3.6910956823459888`*^9}, {3.6910957324066253`*^9, 3.691095762435169*^9}, 3.6910958981219788`*^9, {3.69109592814993*^9, 3.6910959755075502`*^9}, { 3.691096019619152*^9, 3.691096031791953*^9}, {3.691096114359203*^9, 3.691096115747283*^9}, {3.6912589792425175`*^9, 3.691258982811711*^9}, { 3.6925392805360603`*^9, 3.6925392919867177`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za NT : \"\>", "\[InvisibleSpace]", "730.240962576923`"}], SequenceForm["Cena za NT : ", 730.240962576923], Editable->False]], "Print", CellChangeTimes->{3.692420820955326*^9, 3.692430617882072*^9, 3.6925391734229183`*^9, 3.692539262548024*^9, 3.6925392964719653`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za VT : \"\>", "\[InvisibleSpace]", "5755.607468346152`"}], SequenceForm["Cena za VT : ", 5755.607468346152], Editable->False]], "Print", CellChangeTimes->{3.692420820955326*^9, 3.692430617882072*^9, 3.6925391734229183`*^9, 3.692539262548024*^9, 3.6925392964759645`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za jistic : \"\>", "\[InvisibleSpace]", "194.5255120133306`"}], SequenceForm["Cena za jistic : ", 194.5255120133306], Editable->False]], "Print", CellChangeTimes->{3.692420820955326*^9, 3.692430617882072*^9, 3.6925391734229183`*^9, 3.692539262548024*^9, 3.6925392964819665`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za baterii : \"\>", "\[InvisibleSpace]", "0.`"}], SequenceForm["Cena za baterii : ", 0.], Editable->False]], "Print", CellChangeTimes->{3.692420820955326*^9, 3.692430617882072*^9, 3.6925391734229183`*^9, 3.692539262548024*^9, 3.692539296486966*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena za bateriovy system : \"\>", "\[InvisibleSpace]", "0"}], SequenceForm["Cena za bateriovy system : ", 0], Editable->False]], "Print", CellChangeTimes->{3.692420820955326*^9, 3.692430617882072*^9, 3.6925391734229183`*^9, 3.692539262548024*^9, 3.6925392964919653`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Cena celkem : \"\>", "\[InvisibleSpace]", "6680.373942936406`"}], SequenceForm["Cena celkem : ", 6680.373942936406], Editable->False]], "Print", CellChangeTimes->{3.692420820955326*^9, 3.692430617882072*^9, 3.6925391734229183`*^9, 3.692539262548024*^9, 3.6925392964979677`*^9}] }, Open ]], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Prubehy bez baterie\"\>", "\<\"\"\>"}, { GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.01388888888888889], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdyzlKREEYhdGLkaGBgYGBSiMiIo6t7dTPeZ5aWw1FMHYLtbRakktoRRDe +aEoDh939uNr8DmW5P3n/f5/991P+5o2x/EEnsRTeBrP4DncwfN4AS/iJbyM V/AqXsPreANv4i7ewtu4h3fwLt7D+/gA93HTdsE5pOMc0XGO6TgndJxTOs4Z HeecjnNBx7mk41zRca7pODd0nFs6zh0d556O89B2gwuuOI/sccEVZ8AeF1xx ntjjgivOM3tccMUZsscFV5wX9rjgivPKHhdccd7+PQJC6kfF "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.01388888888888889], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw1VEtIlGEU/bXpYVBYGgQl9HSGsFJ7WWN51VHHx4zjOA/b2VTgQmgTU6v4 hSg0kEBchRUUuCgoXQTmoiG0TVibiCkQIgmKJtAax8rK/u/eewT5OHPuua/v fP/OxIXw+XzLsrqdf3PK33zNWXcyMfroO+kP9K5/JN1/8IfidXTDgSVvwRfS t6lgxjcBXMynvX5B8VbWF/iBtwuuRr4doncB76I8c/xE/B6uN3JvXnEpJRPu 5Mcy1POQobseZBXvEzyHfGU0VuQdK5pFvgOUMPOtAS6X+l+Rr4LGTXwE+kqa DmamXs0h/hC1ZxzBB+DDwndDf0TyZ6E/KmcI/R0jjzNAbga4ii6Zea4sKj4u 594lxSco5NTrfZJT7KUtTnuTw8DVNGAG/vRP8UnOlyhZUXyK++39vapWcA29 cPod9K9WTFTs5Fve5BJsE99P8zPE11K1s8AKC3wtmfGvXgdfR16z4OF85etk niX0U8/5J115ytfLvqMab/kobeqNg/fxPoMexVYDzzc7AL5B/Hca+kbx50vU b+S69gT0TZxv4zXom+T+WsD7if3+xlLez/5JD2J/zeKnnmXBdrPc99M/yrdw //1VOq/dwvNNPYe+Vfw0h/ytZOBkD+q38T5dafBt7B/3bugDsn8P8gd4n979 f5UPyrxF2o8d5Pix17+Ub6fHpuBD9ZfdLvEZ+C0k/V9UP1JI5r+v/rVDUr9S +VSIzpn+LkPfIfsbUUwdcq5ovN0h/W5WPiW8XQ//h+V7UIL6Yc4/ehP1w+Lv RsWpMNdzr8X76pR+F/X9USfdMff1RbHdKX7cAL3iLN5rRPx4F/oIvTf99KH/ CH8/hnLQR/j9Jm9BH5X79kMflf5KUT9Kt00/pN+LVJT3XXAG348Y37+vUDHF 2C9D26CPyf6rUF/j+zB/XPZZrpji8v4/Qx+XfAHFqbj4fwbf0y4y7eYSC/Qf Nay3ow== "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"kapacita", "(", "W", ")"}], TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotLabel->FormBox["\"Baterie\"", TraditionalForm], PlotRange->{{0., 96.}, {0, 174353.84615384619`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.01388888888888889], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxd1DlIA1EQBuBBQSxFLQQVVLwQkcRb4zHeZy6PrGUMWCnYiNgoT6ysxUoC FoK1CDY2W4idYplSFEEwgkeMoGB8m51X5H8QHl/+nc3LMjvVsfW5lTwiiuqP s7vrbZByF+eyEFwELgWXgSvAVeAacC24HtwIbgI3g1vAHo41bMZOC97ley+/ XgWSoy8f4lY+K/GdlSx8itv4OpC8un0017ezP6kL7o073Dxq6jt52bl/ytR3 8W9Gr2BK3M06bkjfGPfwhj7Qw86XuNfd677FvuzvrV2kxX1cpo93eWjcz3vx xH786U88wNvOH6zMiAfd+p/8Idec+zwUmIYgB9Mw5GAagRxMo5CDaQxyMI1D DqYJyME0CTmYpiAH0zTkYJqBHEyzkIPJDzmYApCDKQg5mEJZq6T0G4f4bl83 0Ib0owrxkW6nxIn0rx3iDv1CeFtNv4Z5xWngLVPv+jQuVmF3z8j1djjbr75i 099zuedhsALbYJqHerAC22BagHqwAttgWoR6sALbYIpAPVhF+FzPn4NymSd2 xH3+3WaeWPzjzKtdMVvZXXnEyuJV5/1/NvUWHzv385v5tMRRZ37dvPE/WwnC LA== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.01388888888888889], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw1VEtIlGEU/bXpYVBYGgQl9HSGsFJ7WWN51VHHx4zjOA/b2VTgQmgTU6v4 hSg0kEBchRUUuCgoXQTmoiG0TVibiCkQIgmKJtAax8rK/u/eewT5OHPuua/v fP/OxIXw+XzLsrqdf3PK33zNWXcyMfroO+kP9K5/JN1/8IfidXTDgSVvwRfS t6lgxjcBXMynvX5B8VbWF/iBtwuuRr4doncB76I8c/xE/B6uN3JvXnEpJRPu 5Mcy1POQobseZBXvEzyHfGU0VuQdK5pFvgOUMPOtAS6X+l+Rr4LGTXwE+kqa DmamXs0h/hC1ZxzBB+DDwndDf0TyZ6E/KmcI/R0jjzNAbga4ii6Zea4sKj4u 594lxSco5NTrfZJT7KUtTnuTw8DVNGAG/vRP8UnOlyhZUXyK++39vapWcA29 cPod9K9WTFTs5Fve5BJsE99P8zPE11K1s8AKC3wtmfGvXgdfR16z4OF85etk niX0U8/5J115ytfLvqMab/kobeqNg/fxPoMexVYDzzc7AL5B/Hca+kbx50vU b+S69gT0TZxv4zXom+T+WsD7if3+xlLez/5JD2J/zeKnnmXBdrPc99M/yrdw //1VOq/dwvNNPYe+Vfw0h/ytZOBkD+q38T5dafBt7B/3bugDsn8P8gd4n979 f5UPyrxF2o8d5Pix17+Ub6fHpuBD9ZfdLvEZ+C0k/V9UP1JI5r+v/rVDUr9S +VSIzpn+LkPfIfsbUUwdcq5ovN0h/W5WPiW8XQ//h+V7UIL6Yc4/ehP1w+Lv RsWpMNdzr8X76pR+F/X9USfdMff1RbHdKX7cAL3iLN5rRPx4F/oIvTf99KH/ CH8/hnLQR/j9Jm9BH5X79kMflf5KUT9Kt00/pN+LVJT3XXAG348Y37+vUDHF 2C9D26CPyf6rUF/j+zB/XPZZrpji8v4/Qx+XfAHFqbj4fwbf0y4y7eYSC/Qf Nay3ow== "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotLabel->FormBox["\"nizssi tarif [J]\"", TraditionalForm], PlotRange->{{0., 96.}, {0, 174353.84615384619`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]}, { GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdlEtok0EQx9ca8YVSiYceDPiiCaU+qlarqWbSpGmaNqnmZbxppFDw4EVy E1YUJUWKID2VQsFDDwoSPVUP/ZDcCupBSjz0Yi8KEao2vurr250ZIbPwsfz4 f/+Z2dnHnuLV9GiLUuqi+5kZx0pINQ+47C8VZx9/BsRN8LY8XSsf+kLcCuMu +hZZ3wkfq6l6dI65zc56yyfiXda/Oc68G7mX4+2F98bvYd6P83f+vx3uuvmm H6wQB+Ba0V9618n5OmDKlQsPV4k7kZc53kF46g1WvEsc7zA0L7dL8BHBRwUf E9wt+LjgE4J7BJ8UfEpwUHCv4NOCzwgOCQZYSNWrE/ENYYsaoM1tz9oOD7IK 2/0ZnF9PehhCFW+wS7HeZ/fr1h3W+6xemWwhPQLXzf58+4N5dcTGf+5ZR3oU 9ztH/+sovDb5nrDeb+tLBYh1P9x0939pnPWYZd8F9sesv7zA+QdsXj3H/gEb b/tt9sch6YavJ1iPw6g5728U6YP2/NQm/lL9yIWxNepjwsZ7+ewX6QnM30Pr VUPw0w1ffcH+ITx/yxx/GPsxxvmHbT88NdaTEHbr8e9jfxK6Tf8DHD8FHa4/ eOA36Slcr5fqUSP2/8qrH6SPwIzJ/6hB+lmaaYBgLdgRrM4Jv2At2BGs0lhv hO4rpKFh3gMfsU7b9c/eo/vrpGHS3P8Y3+cM9mcjMWRg3uxXg94DjVz4QOxk 4Io5j9vYn0VeJR2ysGjO4wz7s1jPDarHydr+3f/K/hxsddOXptifs/5qnP05 rK+d8+ewHuD3J4/xLxFDHvO3Euu86J9gdb6ZQbAW7AhWhf/8Dy7sPg8= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw1VEtIlGEU/bXpYVBYGgQl9HSGsFJ7WWN51VHHx4zjOA/b2VTgQmgTU6v4 hSg0kEBchRUUuCgoXQTmoiG0TVibiCkQIgmKJtAax8rK/u/eewT5OHPuua/v fP/OxIXw+XzLsrqdf3PK33zNWXcyMfroO+kP9K5/JN1/8IfidXTDgSVvwRfS t6lgxjcBXMynvX5B8VbWF/iBtwuuRr4doncB76I8c/xE/B6uN3JvXnEpJRPu 5Mcy1POQobseZBXvEzyHfGU0VuQdK5pFvgOUMPOtAS6X+l+Rr4LGTXwE+kqa DmamXs0h/hC1ZxzBB+DDwndDf0TyZ6E/KmcI/R0jjzNAbga4ii6Zea4sKj4u 594lxSco5NTrfZJT7KUtTnuTw8DVNGAG/vRP8UnOlyhZUXyK++39vapWcA29 cPod9K9WTFTs5Fve5BJsE99P8zPE11K1s8AKC3wtmfGvXgdfR16z4OF85etk niX0U8/5J115ytfLvqMab/kobeqNg/fxPoMexVYDzzc7AL5B/Hca+kbx50vU b+S69gT0TZxv4zXom+T+WsD7if3+xlLez/5JD2J/zeKnnmXBdrPc99M/yrdw //1VOq/dwvNNPYe+Vfw0h/ytZOBkD+q38T5dafBt7B/3bugDsn8P8gd4n979 f5UPyrxF2o8d5Pix17+Ub6fHpuBD9ZfdLvEZ+C0k/V9UP1JI5r+v/rVDUr9S +VSIzpn+LkPfIfsbUUwdcq5ovN0h/W5WPiW8XQ//h+V7UIL6Yc4/ehP1w+Lv RsWpMNdzr8X76pR+F/X9USfdMff1RbHdKX7cAL3iLN5rRPx4F/oIvTf99KH/ CH8/hnLQR/j9Jm9BH5X79kMflf5KUT9Kt00/pN+LVJT3XXAG348Y37+vUDHF 2C9D26CPyf6rUF/j+zB/XPZZrpji8v4/Qx+XfAHFqbj4fwbf0y4y7eYSC/Qf Nay3ow== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdlE1IVFEUx59fkUnUOEGzCCk1x6REq1FrTI9f4+c49ZyZsiJNGBCGqEXl pui6yDIqF9Yix8haBIkio+CiDxjMIpC0jWZIEBioqVmRZKZT7809J/BcGC6/ +Z//uf934Z4ddWdVT7iiKLXaT9/l+parrF0QVTs64nHMgsT18D0x8XmKYw55 M6gVbXFqO+lbwORrmuyoIzZBrmFmw9aoaeRt0i+It8O0zvXUL176l8ifCBbd /2kGOQns+nmZU8jJEDeW+Wui9AtyCngHVore2BaQd0vun0dOBV9WzZmcTuqX Bms/N53xXsb7GO9nbGGcwTiTcRbjA4wPMrYyzmZ8iHEO41zGAKbWx9fuDIbn hVAAeK54x5TbYZKVPDAPH/U5rMgiD24uvl3NuER6Pliio3tuRJCeH9L7DQrq BWCa9f2ZX/gtzxUFMBQc62oMW8UcheCNjT1199Ff1AvB3t6T8eBkEPUiiEuy b3pSgvWiCPpe7rz3eiPpNnilsa2T/LZQ3pZiOr8Yuq+fvxrjxXpRDPlav12R 5C+BktPB+M+3qH8JNLyvLTv+cAX1Uqk3LaNeCkOpSxd+VuP3KGUwVDk3OPwU 60UZvGu+P96cRf3LYXlQKxigfOXQZ7T6jZOUrwJMGj6rp/urgGmtPnKcdDt4 zBfrzAnkt4PFb7SmJ1P/Slin+a17KH9laBdGyu8I1ftH6P4d0KGf37WI+mHc cQFjwTjAWDnC/IwF4wBjRQWD/r4bvsr/QYVlfR6kIAsVWmu0+WPA9xtQwaq/ /8s0L6qkHsR5AVXQor/3CWSBPIAcqIKpUW1exJDfKfkD+Z3wok2bP2nkd8o8 PzBPwAmqPj8+0jxxQfJqd3WEmfwu6W/EeSRcMl82csAl85yj+eeW/XuRwQ0J jf4TvW7MJ9zs/hgrR9cyMBaMA4yVY//5H+yFRDY= "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotLabel->FormBox["\"Vyssi tarif [J] \"", TraditionalForm], PlotRange->{{0., 96.}, {0, 174353.84615384633`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.016666666666666666`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdyzlKREEYhdGLkaGBgYGBSiMiIo6t7dTPeZ5aWw1FMHYLtbRakktoRRDe +aEoDh939uNr8DmW5P3n/f5/991P+5o2x/EEnsRTeBrP4DncwfN4AS/iJbyM V/AqXsPreANv4i7ewtu4h3fwLt7D+/gA93HTdsE5pOMc0XGO6TgndJxTOs4Z HeecjnNBx7mk41zRca7pODd0nFs6zh0d556O89B2gwuuOI/sccEVZ8AeF1xx ntjjgivOM3tccMUZsscFV5wX9rjgivPKHhdccd7+PQJC6kfF "]]}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotLabel->FormBox["\"Penale\"", TraditionalForm], PlotRange->{{0., 96.}, {-1., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.6924208211897*^9, 3.6924306180889616`*^9, 3.692539173682933*^9, 3.692539262808037*^9, 3.69253929671898*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"porovnavani", " ", "grafu"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"energie", "[", "J", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"minimumPrubeh", "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "/", "ctvrthodina"}], ",", RowBox[{ RowBox[{ RowBox[{"BezBaterieCena", "[", RowBox[{"[", RowBox[{"1", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "/", "ctvrthodina"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.690316754332738*^9, 3.6903168428228064`*^9}, 3.6903174729688983`*^9, {3.6903175257099123`*^9, 3.6903175680443363`*^9}, { 3.690317626948711*^9, 3.690317636836276*^9}, {3.6903179740335865`*^9, 3.690317978448839*^9}, {3.691259159212812*^9, 3.6912591753427362`*^9}, { 3.6917875362599*^9, 3.691787560579031*^9}, {3.6920187830719585`*^9, 3.692018828216267*^9}, {3.6920188756353683`*^9, 3.692018924598784*^9}, 3.69210126075639*^9, {3.692539219680567*^9, 3.6925392355834875`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.01388888888888889], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdy1tI02EcxvFfNtJMIixIykVWREh2sFpmms+01sG0zdZW4JYIzYskqbvE aBhRNzPIqFZQUWESGpFdiF3s79BFSqcRHhLtsA6KXkQXHfCiA/vd7Hnh5eXD 932yqusqjiSJSNW/+/+Nn29FkniQyBTyPPICcgY5k7yUvIy8grySvIqcTV5N XkNehyVtg9Np4aA17vU45Jm0mK7cV+filrfLd77wsXoDXobSA3fGutQb8aKh Pq8pZKg3wdfecnTQ3KO2YO3lizmT4Yh6M5ru9Zf0zX6mzsMUMo7Pd/artyD5 5vfO7ofP1fmos81ofWt+pd6K8I+ULHheqwvQ3BB8Mnwtqi7Eg8WeDlfZG/U2 RCtNU7GkAXURBsZH03wLh9RItJ8sVupkKaZOlhLqZNlOnSw7qJPFRp0sO6mT ZRd1suymTpY91MlSSp0se6mTpYw6Wcqpk2UfdbLYMTcSTq/5NRw37GjtMy/v 7hnR/3a4UrPPPTo7GrdhR32bJ1hT/k73DtxoDqDx0nvdO/DHXls11PhB9w5c D3l/Rms/6t4B792OXqc7pvuKRIPsJxtk2U97sp9skMVJe7KfbJDlAO3JfrJB FhftyX4XKvMzSyXnk+5dODbHYjqV+ln3bsRmRi5MT6jhxukTnbnFT7/o3o3k lt+9gdtfde/GrILqkasnx3V/EDgzdniRbcL6FybUmSk= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.01388888888888889], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd0l9IU1EcB/BfPlVPwg1ceCGVmMvCMvtj29Tf8l9pbndzbvUWFyJBZfQy GEHdBx+0P29CoQ6lXpIinIgE+XCJG8GQaES6Ci2jh4gF+uxLO9vvZd8Dl8uH 7/mec7nn1JuJyK0qIrpZfNS7PHY7qXJwJQ+Cq8FHwC6wDq4DN4CPg91gD7gJ fArcDD7D3ozmW/73OFB2CxeZWXgyLz5bmt/V/0LcyqGC8zqhLYnPsS+jzdYe WBGf5wfp/KGdw2/EF9R6OXN8TXyR81Ppkf07triNi9tp+tt34kvsBAsrr2re i73K0fSzD2Kf+t792/VZsV+t55mdWxe3q/UeZumTuIMLTtCJr+bEnWw2Jv96 /3wWc6UtMAUgB9NlyMHUBTmYuiEHUw/kYOqFHEx9kIPpCuRgugo5mPohB9MA 5GC6BjmYBiEHUxByMIUgB5OhvDypfymbDXXfJk77N2S+oe7by3Fjs2zbYHfS vJ8Yy0s/zEua78SNma/SD6v5JyPZb9IvuXZ677v0wzyVzqd+H92SfqTSDLbA NpiGoA+2wDaYotAHW2AbTMPQB1tgG0wx6IOtGAcLTu+ka1v6MfU/7350/5B+ nJNmY9Mj/af0S25OPRdbcXW+DaOeHenH1fk+1RfFdF3l97qP/Qr8B/Y/j9w= "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0., 96.}, {0, 3.3921973749535217`*^9}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"energie", "(", "J", ")"}], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"nizssi tarif [J]\"", TraditionalForm], PlotRange -> {{0., 96.}, {0, 3.3921973749535217`*^9}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"Baterie \"", "\"Prubeh bez baterie\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6924208213772016`*^9, 3.692430618288998*^9, {3.692539210630053*^9, 3.692539229423125*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.01388888888888889], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdz2tIU2Ecx/GjFIUhpilaRE1Rc6ZSaprT3M/7ppubu6Wi4QWTojY0i0SQ U1SgQeueGhSGMg0sL12MDE76IlJwvTA0LBRKg1I3oxIpLXP/BT4PHB4+fJ/f i+NfYtKUuXIcV7Ty/bsdxy7l1h6sL3prLVN9hYMbUdP/O01m/UXeDM33lvu9 w+uSHPaG3+0LH4ssm8h+eGQSabUjm8nbV9/nftpCFsF2Wux6qMKXHACNomlH pX0bORDVxoU/VWE7yMFwKZhqflgnIoeg9F1usTIigByK+tbeqWcBgeQwdFb4 HQ1eDiJHQFI2px5s2EXew3gv40jGUYyjGe9jHMM4lvF+xnGMJYzjGScwPsA4 kbGUMcC5jVXa5GEO88BsVdzIU8Me6knoMra88q+NpJ6E0vBDlraOaOrJqM+W Lm0djqGejHj3xffqN/upp2B2qLtPZZJQT8G7eH60XJpAPRVcYXH4lbhE6qko 2X34cocHqKfh2vXJsW+LZD4NXf3t7sVfkqinw2qvTO75nEw9HV3HQxLCZlKo Z2DBU9dwbiKVegbENcOTrdY06jJEGaddfPrSqctgW/n/nc0Z1OVYLM/5YTgp oy6HSezSGAw59UxMXwzxWArKpJ6J6NOzhS99s6hnoWBOdX7UR0E9C7fulgob A5XUFZD33Km4Lsmmrljt3jIVdSWOtD1fuilSU1ciYsHSH9tI5rKxre/ngxn3 HOoOS2rJnAoTbh9PVE85u2p1L07QUFevNRjzjAXGXA6zZ8wzFhhzGqhfv7D7 Vjv3GjR5xqQfe+zca5DX99bTbHPuNZi3ez2pC9HSXovO291nLhSRocW+G4le iQ1kXovnlwbvDVjJghaHl3vzxzfoaK+Dl9HiZZaSoYOsxqiznyTzOlwdmG4f 6SELOriefRlstjn3eix9qAr/EKSnvR6RX+NNk/lkXo/5G+OSPDNZ0OOUuXxI IpA5A4TRCdHdeefegAHJrfOKUAPtGQuMuYNrDcY8Y4Exl/vffwFsxJ5L "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.01388888888888889], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1EloE1Ecx/FpTx4ExRa0VmotJbV2oau1m/knTZOmzdbJ0lq1lEgFQdSL FQ+Fp7iQRrwFhBJBqago1eCtIM4hIKL1ImrEgh6LVFwOngR9+c9PIf+BED58 35tk3nvMnuRpc7bcMIwZ/Sl+29d3p1F60bGGueTdRz/J5ia6WUhlb3wrd9ne avepzXAlfc2HNpY+boN3sD012+FdPN53phqutcfvroXraCFbSLWoOrje9rN6 2EH9uYr+W28c8F7ug1WN8D7SzN5bboKb6XGFntHUCrdSkYc72+A24XbhDuFO 4S7hbuH9wj3CB4R7hfuE+4UHhAeFDwo7hYnX/+Rah21FFNnIhx5Od6O7KK0X NPOuB91FT/QNFhN96G4ef+35ALqbziUb5tw7nehD3D9fIvQhKivuSsaF7uGu VtzoHvs8vB1CH6YPqWyhcd2DPkx6+3PvDS+6l/f/hMOH7iV9vBrqoiPoPvbK KT+6j5+/+uoo+gjp41J4sTiGPkIh/X8q7wfQ/Tw+fSeI7ufxqyqEPsrjl46H 0UcprN3VHEEfI70cSecDWI1R8WuyYxw9wM+XfQqrAPdpj4ke5PP8xYJVkO+X 7o2ih/j3aBlWtq/XxNDD/P9XL8MqzPPn1/71SKlJWAlbwsa4mC+shC1hw7Sf pyWO+Sbv5595WJm8f+5XsGXyehypSmB+lPr0gTg/C1OUeyQHqyiv56/fsBW1 3yf+CcyP8fqUZWCK8e9d/ASrGK/nlfZJzI/x/WcuwEaczuoHeP0Spjjp7Uz9 qDyE+XFy6PstHIUtu6dvw0aC309b1mFKkD7++UjzFOYLW8LGRKlJWAlbwsbk f/8FZz15wg== "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0., 96.}, {0, 6.861123076923076*^6}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Vyssi tarif [J] \"", TraditionalForm], PlotRange -> {{0., 96.}, {0, 6.861123076923076*^6}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"Baterie\"", "\"Prubeh bez baterie\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.25], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.6924208213772016`*^9, 3.692430618288998*^9, {3.692539210630053*^9, 3.6925392296161346`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Porovnani jednotlivych dnu", "Title", CellChangeTimes->{{3.690476957125035*^9, 3.690476963845513*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dobaZivotaBaterie", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"UsetrenoRocne", "=", RowBox[{"cenaRozbor", "[", RowBox[{"[", "10", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", "NPV", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diskont", "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"baterieInvestice", "=", RowBox[{"cenaJoule", "*", "BaterieMin"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cashFlow", "=", RowBox[{"Cashflow", "[", RowBox[{ RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"-", "baterieInvestice"}], "}"}], ",", RowBox[{"ConstantArray", "[", RowBox[{"UsetrenoRocne", ",", "dobaZivotaBaterie"}], "]"}]}], "]"}], "}"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"cashflow", " ", "za", " ", "dobu", " ", "projektu"}], "*)"}], "\[IndentingNewLine]", RowBox[{"NPV", "=", RowBox[{"TimeValue", "[", RowBox[{"cashFlow", ",", "diskont", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", "IRR", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"IRR", "=", RowBox[{"FindRoot", "[", " ", RowBox[{ RowBox[{ RowBox[{"TimeValue", "[", RowBox[{"cashFlow", ",", "r", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"r", ",", ".05"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "NPV", ",", "\"\< KC a IRR je : \>\"", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"r", "/.", "IRR"}], ")"}], "*", "100"}], ")"}], ",", "0.05"}], "]"}], ",", "\"\< pro dobu zivota : \>\"", ",", "dobaZivotaBaterie", ",", "\"\< let\>\""}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.69061579081713*^9, 3.690615808483132*^9}, 3.6906164028643646`*^9, {3.6906166837010713`*^9, 3.6906168317805505`*^9}, { 3.6906168633853717`*^9, 3.6906168664665365`*^9}, {3.6906169056737833`*^9, 3.690616936508548*^9}, {3.6906169910676713`*^9, 3.6906170378853536`*^9}, { 3.6906173063174424`*^9, 3.690617306526455*^9}, {3.690617499901529*^9, 3.69061750063457*^9}, {3.690617541508911*^9, 3.6906175689694853`*^9}, { 3.690617611193901*^9, 3.6906176274018297`*^9}, {3.6906176623118286`*^9, 3.69061789369208*^9}, {3.6906181277416596`*^9, 3.6906181384572735`*^9}, { 3.6906181935434375`*^9, 3.6906183742587776`*^9}, {3.690619877635648*^9, 3.6906198831499653`*^9}, {3.690831277006633*^9, 3.6908313333948646`*^9}, { 3.690831375774288*^9, 3.6908313760173025`*^9}, {3.690833202757766*^9, 3.6908332164575496`*^9}, {3.6910751608216047`*^9, 3.6910751658808947`*^9}, {3.6910760198567767`*^9, 3.6910760253900948`*^9}, {3.6910762524860992`*^9, 3.6910762533681593`*^9}, 3.691076297109655*^9, {3.6910794187629495`*^9, 3.691079419344984*^9}, { 3.6910796076207094`*^9, 3.691079622521744*^9}, 3.6910948962081704`*^9, { 3.6910965475179615`*^9, 3.69109655656848*^9}, {3.6910965901994057`*^9, 3.691096602655119*^9}, {3.6910966399002523`*^9, 3.6910968164693637`*^9}, { 3.691096895933914*^9, 3.6910969106047544`*^9}, {3.691348806833881*^9, 3.691348825875147*^9}, {3.69201755829325*^9, 3.6920176087116027`*^9}, { 3.6925393416625633`*^9, 3.6925393481399384`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"NPV je : \"\>", "\[InvisibleSpace]", "402388.8250625605`", "\[InvisibleSpace]", "\<\" KC a IRR je : \"\>", "\[InvisibleSpace]", "10.850000000000001`", "\[InvisibleSpace]", "\<\" pro dobu zivota : \"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" let\"\>"}], SequenceForm[ "NPV je : ", 402388.8250625605, " KC a IRR je : ", 10.850000000000001`, " pro dobu zivota : ", 10, " let"], Editable->False]], "Print", CellChangeTimes->{ 3.692420822080327*^9, 3.6924306189500036`*^9, {3.6925393365082583`*^9, 3.692539356710415*^9}}] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.691272231086881*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cashFlowMan", "[", RowBox[{"investice_", ",", "doba_"}], "]"}], ":=", RowBox[{"Cashflow", "[", RowBox[{ RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"-", "investice"}], "}"}], ",", RowBox[{"ConstantArray", "[", RowBox[{"UsetrenoRocne", ",", "doba"}], "]"}]}], "]"}], "}"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6906188777631454`*^9, 3.6906189441669474`*^9}, { 3.6906226933643565`*^9, 3.690622787363739*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"cashFlowMan", "[", RowBox[{"investice_", ",", "doba_"}], "]"}], ":=", RowBox[{"Cashflow", "[", RowBox[{ RowBox[{"{", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"-", "investice"}], "}"}], ",", RowBox[{"ConstantArray", "[", RowBox[{"UsetrenoRocne", ",", "doba"}], "]"}]}], "]"}], "}"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"TimeValue", "[", RowBox[{ RowBox[{"cashFlowMan", "[", RowBox[{"investice", ",", "x"}], "]"}], ",", "diskont", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "nZivota", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"nZivota", ",", "10", ",", "\"\\""}], "}"}], ",", "1", ",", "20", ",", RowBox[{"Appearance", "\[Rule]", "Labeled"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"diskont", ",", "0.05", ",", "\"\\""}], "}"}], ",", "0", ",", "0.20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"investice", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "800000"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6906204696105514`*^9, 3.6906204943749666`*^9}, { 3.690621201264043*^9, 3.6906215251905837`*^9}, {3.6906217493144193`*^9, 3.690621759719022*^9}, 3.690621818585396*^9, {3.690621868097221*^9, 3.6906218799669113`*^9}, {3.69062194038336*^9, 3.6906219726332073`*^9}, { 3.6906222595736537`*^9, 3.690622293553588*^9}, {3.6906223470346518`*^9, 3.690622347258663*^9}, {3.6906225213541994`*^9, 3.6906225247274017`*^9}, { 3.6906229151900587`*^9, 3.690622929851898*^9}, {3.6907914621743135`*^9, 3.690791468049652*^9}, {3.6907926505140305`*^9, 3.690792663516776*^9}, { 3.690792722175145*^9, 3.690792737454009*^9}, {3.690792781456529*^9, 3.6907927888549614`*^9}, {3.6907930092185736`*^9, 3.6907930124697695`*^9}, {3.690793159264166*^9, 3.6907931655055237`*^9}, { 3.6907934289182816`*^9, 3.690793463775279*^9}, 3.690793706270164*^9, 3.690793745223398*^9, {3.6907940146957674`*^9, 3.690794030040646*^9}, { 3.690795025270425*^9, 3.6907950261298056`*^9}, {3.691079441194233*^9, 3.691079443528367*^9}, {3.691094924978532*^9, 3.691094934742627*^9}, { 3.691168570141841*^9, 3.6911685782012997`*^9}, {3.6921011803671904`*^9, 3.692101182221983*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`diskont$$ = 0.05, $CellContext`investice$$ = 0, $CellContext`nZivota$$ = 7.04, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`nZivota$$], 10, "Doba zivota"}, 1, 20}, {{ Hold[$CellContext`diskont$$], 0.05, "diskont"}, 0, 0.2}, {{ Hold[$CellContext`investice$$], 0, "investice"}, 0, 800000}}, Typeset`size$$ = {432., {110., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`nZivota$482388$$ = 0, $CellContext`diskont$482393$$ = 0, $CellContext`investice$482394$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`diskont$$ = 0.05, $CellContext`investice$$ = 0, $CellContext`nZivota$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`nZivota$$, $CellContext`nZivota$482388$$, 0], Hold[$CellContext`diskont$$, $CellContext`diskont$482393$$, 0], Hold[$CellContext`investice$$, $CellContext`investice$482394$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ListPlot[ Table[ TimeValue[ $CellContext`cashFlowMan[$CellContext`investice$$, $CellContext`x], \ $CellContext`diskont$$, 0], {$CellContext`x, 0, $CellContext`nZivota$$, 1}], AxesLabel -> {"cas [roky]", "kumulovane disk. CF [Kc]"}], "Specifications" :> {{{$CellContext`nZivota$$, 10, "Doba zivota"}, 1, 20, Appearance -> Labeled}, {{$CellContext`diskont$$, 0.05, "diskont"}, 0, 0.2}, {{$CellContext`investice$$, 0, "investice"}, 0, 800000}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{489., {199., 206.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.692420826627211*^9, 3.692430624279317*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.690794975348899*^9, 3.6907949819417877`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6912417380071635`*^9, 3.6912417629577646`*^9}, 3.691940177284275*^9}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.691241771628598*^9, 3.6912417730659885`*^9}, 3.691940175883587*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"citlivostni", " ", "analyza"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cenaJoule", "=", RowBox[{"7000", "*", RowBox[{"25.92", "/", RowBox[{"(", RowBox[{"14000", "*", "3600"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"citAn", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "5"}], "]"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ "uloziste", " ", "pro", " ", "jednotlive", " ", "cenove", " ", "varianty"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"snizeniCeny", "=", RowBox[{"cenaJoule", "/", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaJoule", "=", RowBox[{"cenaJoule", "+", "snizeniCeny"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"i", "=", "1"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<", "6"}], ",", RowBox[{"k", "++"}], ",", RowBox[{"(", RowBox[{ RowBox[{"cenaJoule", "=", RowBox[{"cenaJoule", "-", "snizeniCeny"}]}], ";", RowBox[{"minimum", "=", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"{", RowBox[{"mycena", "[", RowBox[{"PmaxOdber1", ",", "Baterie"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"PmaxOdber1", ",", "200000."}], "}"}], ",", RowBox[{"{", RowBox[{"Baterie", ",", "10000000."}], "}"}]}], "}"}], ",", RowBox[{"Method", "->", "\"\\""}]}], "]"}]}], ";", RowBox[{"minimumHodnoty", "=", RowBox[{"minimum", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "minimumHodnoty", "]"}], ";", RowBox[{"PmaxOdebirany", "=", RowBox[{"PmaxOdber1", "/.", "minimumHodnoty"}]}], ";", "\[IndentingNewLine]", RowBox[{"BaterieMin", " ", "=", " ", RowBox[{"(", RowBox[{"Baterie", " ", "/.", " ", "minimumHodnoty"}], ")"}]}], ";", RowBox[{ RowBox[{"citAn", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"cena", "[", RowBox[{"{", RowBox[{ "PmaxOdebirany", ",", "BaterieMin", ",", "prumVsedZimDen", ",", "False", ",", "0.05"}], "}"}], "]"}]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cenaJoule", "=", RowBox[{"7000", "*", RowBox[{"25.92", "/", RowBox[{"(", RowBox[{"14000", "*", "3600"}], ")"}]}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.6913451858919992`*^9, 3.6913454297545176`*^9}, { 3.6913455157374406`*^9, 3.6913455430643005`*^9}, 3.691345598960655*^9, { 3.691346069133919*^9, 3.691346085502643*^9}, {3.691387111522478*^9, 3.6913871119990835`*^9}, {3.691760580051999*^9, 3.6917605813455906`*^9}, { 3.6917610021234517`*^9, 3.691761007877839*^9}, {3.691761776566517*^9, 3.691761807069535*^9}, {3.6917642823846765`*^9, 3.691764305448161*^9}, { 3.691850851873937*^9, 3.691850863804021*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.6924208276272125`*^9, 3.6924306251083574`*^9, 3.692539397398745*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"PmaxOdber1", "\[Rule]", "155104.2889586132`"}], ",", RowBox[{"Baterie", "\[Rule]", "3.676660475170943`*^8"}]}], "}"}]], "Print", CellChangeTimes->{3.692421057283911*^9, 3.6924308497621527`*^9, 3.6925396433298283`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"PmaxOdber1", "\[Rule]", "172986.29621745335`"}], ",", RowBox[{"Baterie", "\[Rule]", "4.7311120702700216`*^8"}]}], "}"}]], "Print", CellChangeTimes->{3.692421057283911*^9, 3.6924308497621527`*^9, 3.692539739324327*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"PmaxOdber1", "\[Rule]", "172986.29621745335`"}], ",", RowBox[{"Baterie", "\[Rule]", "5.337699426081396`*^8"}]}], "}"}]], "Print", CellChangeTimes->{3.692421057283911*^9, 3.6924308497621527`*^9, 3.6925398397390757`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"PmaxOdber1", "\[Rule]", "172986.29621745335`"}], ",", RowBox[{"Baterie", "\[Rule]", "7.456797531649585`*^8"}]}], "}"}]], "Print", CellChangeTimes->{3.692421057283911*^9, 3.6924308497621527`*^9, 3.6925399367716336`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"PmaxOdber1", "\[Rule]", "330578.20512820745`"}], ",", RowBox[{"Baterie", "\[Rule]", "1.5750290324256907`*^9"}]}], "}"}]], "Print", CellChangeTimes->{3.692421057283911*^9, 3.6924308497621527`*^9, 3.6925400873862576`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"BaterieAll", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NTAll", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VTAll", "=", RowBox[{"ConstantArray", "[", RowBox[{"0", ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cashFlowAll", "=", RowBox[{"citAn", "[", RowBox[{"[", RowBox[{"All", ",", "8"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NPVAll", "=", RowBox[{"citAn", "[", RowBox[{"[", RowBox[{"All", ",", "9"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"IRRAll", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FindRoot", "[", " ", RowBox[{ RowBox[{ RowBox[{"TimeValue", "[", RowBox[{ RowBox[{"cashFlowAll", "[", RowBox[{"[", RowBox[{"x", ",", "All"}], "]"}], "]"}], ",", "r", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"r", ",", ".05"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "6"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"BaterieAll", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"citAn", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", "3600000"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "6"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"NTAll", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"Differences", "[", RowBox[{ RowBox[{ RowBox[{"citAn", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}], "/", "ctvrthodina"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "6"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"VTAll", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"Differences", "[", RowBox[{ RowBox[{ RowBox[{"citAn", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "All"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], "/", "ctvrthodina"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "6"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"cashFlowAll", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"citAn", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "8", "]"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tarify", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"sablona2", "*", "1000000"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"kapacita", " ", "[", "kWh", "]"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Opacity", "[", "0.01", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prubehNT", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"NTAll", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "}"}], ",", RowBox[{"NTAll", "[", RowBox[{"[", RowBox[{"x", ",", "All"}], "]"}], "]"}]}], "]"}], ",", "4"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"prubehVT", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"VTAll", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"VTAll", "[", RowBox[{"[", RowBox[{"x", ",", "All"}], "]"}], "]"}]}], "]"}], ",", "4"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"prubehPrumDen", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{"prumVsedZimDen", ",", "3"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pl1", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"BaterieAll", "[", RowBox[{"[", RowBox[{"x", ",", "All"}], "]"}], "]"}], ",", "3"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", " ", "True"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"kapacita", " ", "[", "kWh", "]"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<4/5 ceny baterie\>\"", ",", "\"\<3/5 ceny baterie\>\"", ",", "\"\<2/5 ceny baterie\>\"", ",", "\"\<1/5 ceny baterie\>\""}], "}"}], ",", "Bottom"}], "]"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pl2", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{"prubehNT", ",", "prubehPrumDen"}], "]"}], ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{"prumVsedZimDen", ",", "3"}], "]"}]}], "}"}], "]"}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<4/5 ceny baterie\>\"", ",", "\"\<3/5 ceny baterie\>\"", ",", "\"\<2/5 ceny baterie\>\"", ",", "\"\<1/5 ceny baterie\>\"", ",", "\"\\""}], "}"}], ",", "Bottom"}], "]"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"p\[RHacek]\[IAcute]kon", " ", "[", "W", "]"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pl3", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"Append", "[", RowBox[{"prubehVT", ",", "prubehPrumDen"}], "]"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"15", " ", "min"}], "]"}], ",", RowBox[{"e", "[", "W", "]"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<4/5 ceny baterie\>\"", ",", "\"\<3/5 ceny baterie\>\"", ",", "\"\<2/5 ceny baterie\>\"", ",", "\"\<1/5 ceny baterie\>\"", ",", "\"\\""}], "}"}], ",", "Bottom"}], "]"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"prikon", " ", "[", "W", "]"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pl4", "=", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"denCtvrthodiny", ",", RowBox[{"RotateLeft", "[", RowBox[{"prumVsedZimDen", ",", "3"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", "Bottom"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"BaterieAll", ",", RowBox[{"Joined", "->", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"GridLines", "->", "Automatic"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"NTAll", ",", RowBox[{"Joined", "->", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"GridLines", "->", "Automatic"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"VTAll", ",", RowBox[{"Joined", "->", "True"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pl1", ",", "tarify"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pl2", ",", "tarify"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pl3", ",", "tarify"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.691346261934351*^9, 3.691346525465769*^9}, { 3.691346556629717*^9, 3.6913465580192986`*^9}, {3.6913465999879894`*^9, 3.6913469642223563`*^9}, {3.691347007529444*^9, 3.6913470224440365`*^9}, { 3.69134711094302*^9, 3.691347232225642*^9}, {3.6913472719797935`*^9, 3.6913473178196135`*^9}, {3.691347414962947*^9, 3.691347419271854*^9}, { 3.6913474783975253`*^9, 3.691347597117799*^9}, {3.69134835829151*^9, 3.6913483620802994`*^9}, {3.6913485046176662`*^9, 3.691348514333707*^9}, { 3.691348616959717*^9, 3.6913486275218844`*^9}, {3.691767465484978*^9, 3.691767486261736*^9}, {3.691767634524268*^9, 3.691767642694702*^9}, { 3.6917676999459686`*^9, 3.6917678573708305`*^9}, {3.6917768949587736`*^9, 3.691776929518746*^9}, {3.6917770237551928`*^9, 3.6917770275115376`*^9}, { 3.691777283213973*^9, 3.691777317724081*^9}, {3.6917774419372635`*^9, 3.691777494068658*^9}, {3.6917775246090856`*^9, 3.6917775344600754`*^9}, { 3.6917775689588633`*^9, 3.6917775866628685`*^9}, {3.691777620280674*^9, 3.69177772969634*^9}, {3.691777767524288*^9, 3.6917778151993594`*^9}, { 3.69177814323917*^9, 3.69177816902604*^9}, 3.691778222737158*^9, { 3.691778278334851*^9, 3.6917784868461*^9}, {3.6917785318259025`*^9, 3.6917786481550045`*^9}, {3.6917786791913137`*^9, 3.691778683084136*^9}, { 3.691778717031855*^9, 3.691778737139818*^9}, {3.6917787759223843`*^9, 3.6917788633121595`*^9}, {3.6917789023839254`*^9, 3.6917789553712907`*^9}, 3.6917790137329783`*^9, {3.691779111347722*^9, 3.691779154873379*^9}, { 3.6917792000040026`*^9, 3.691779249137943*^9}, {3.6917792937948236`*^9, 3.6917793516448827`*^9}, {3.6917794162269516`*^9, 3.691779436588868*^9}, { 3.69177947042692*^9, 3.691779473523531*^9}, {3.6917795150352354`*^9, 3.691779604640526*^9}, {3.6917796371832714`*^9, 3.6917796943644147`*^9}, { 3.6917797560281687`*^9, 3.691779778728716*^9}, {3.691779835968272*^9, 3.6917799783394566`*^9}, {3.6917800138190403`*^9, 3.691780031677518*^9}, { 3.691780654636894*^9, 3.6917807287649803`*^9}, 3.691780802948363*^9, { 3.691780845246859*^9, 3.6917808679346347`*^9}, {3.691780915902437*^9, 3.691780969972385*^9}, {3.691781021140125*^9, 3.691781022153932*^9}, { 3.6917810750311117`*^9, 3.691781096788924*^9}, {3.6917851766978545`*^9, 3.6917852592548904`*^9}, {3.69178530325365*^9, 3.6917853523381515`*^9}, { 3.691785389470701*^9, 3.691785403743276*^9}, {3.6917855446093416`*^9, 3.6917855826909704`*^9}, {3.6917856647901692`*^9, 3.69178566611094*^9}, 3.691785701112214*^9, {3.691785742391528*^9, 3.6917858185334663`*^9}, { 3.691785990836376*^9, 3.691786034793092*^9}, {3.6917861094137497`*^9, 3.691786136895697*^9}, 3.691853322924164*^9, 3.6918533554781313`*^9, { 3.69185362036362*^9, 3.6918536394437804`*^9}, 3.691853702049898*^9, { 3.691860366593858*^9, 3.691860371327512*^9}, {3.6923829672661676`*^9, 3.692382971239947*^9}, 3.692383018688896*^9, {3.6923830543954277`*^9, 3.6923831108647704`*^9}, {3.69238322852096*^9, 3.6923833713541746`*^9}, { 3.6923835610000362`*^9, 3.692383652148257*^9}, {3.6923836995269785`*^9, 3.6923836997919836`*^9}, {3.692383765053733*^9, 3.6923837659867744`*^9}, { 3.692383800701764*^9, 3.692383901465533*^9}, {3.692383933350358*^9, 3.6923839338383875`*^9}, {3.6924216462811613`*^9, 3.6924216801883554`*^9}, {3.6924217643013363`*^9, 3.6924217839107265`*^9}, {3.6924220964080734`*^9, 3.692422269512987*^9}, { 3.6924223090632524`*^9, 3.692422311089368*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1AlMk2ccx/GniICyTVzUBbAwjih4ZILHRI4VtbQUBSnDqmRYWMQDGbLF OcDAywTnsSnMq8YDUWDooIq0SAXFDUFUKJSrDJQFXZZMNzucguKxPb+HjeQZ SUM+/bZJn+f/vI9bfLJynRUhRE1f+E+IkFvq9Fvw4yOaBvfvoyX0DVEZtULp F5MY9yG1kAIXvNFjqXgnCv0e/KwhLftlcyS6UksdkeXsKM1egV4HL9/2RYzz 1nD0ueepXzw0ZJf2h6EXwufUL8oCw0PRJ12gXtUZYDZeDkHPgW0VGUQ9fSn6 U1h/tdZ74EAwekI5dWOCVbG1KAi9C543KHfyO4vPE9lF6rGG3H5LpAL9EtyZ 3l1SPByB7lVBHeXqUKU1KdE1cDXROY8vZusfp6P2uKfKXJe2Cj0VDvJS94cl rUZ/AE94qXY5nAMLa/TUZ7bJBsbsYv02rBE/c13MLPhXwge7VPKRXgorkmyG RixMvUSde3zAJnSkfwMr3HbbjVh4Bdf1l/9r8kkVtWpr4J7Yv9nv64O17/W5 fKdXoUcYsP4HGRWWxJXotfBHha7yhe5sfXMuU+tir90RujFP4RRs7xiXcnMf 9oNMrKaObxfZvC1l882CP3OWztcPsv17DLvn7owN+Xg5enwNdat141fmFuw3 aYczU8eVbwiQoy+5Qj37kaLneYkUXQffif96zN7JS9A9r1LvMTfPmvqlBP0Q nKJxKV1z1x99bC21Mavg9fbKBeifwzMTPSPz9/ug/wo7nA2X7TB5oauuUR8Y KunebytGvwHbL9oo9e0m6At/oCajf0IJb+L4I9938ybD/+ub6vjey1sIu873 Gt7CrHq+n+AtvNnA9wzewiNYYu8q7j09Detbe2PU2C+hBd4iN0d7DrP9lTSO djxvwgXYwZjwS17YMnS3m6Ofx/Ms5ME/eacbMo3s+be6RR3Mvs/O16ewpr62 3GM1O1/3YUumOmTzBHZ/RN2mli0S9erq2fm6Dp98UpD8Kp2dr3lN1E+1i61D fNn9UQQfbWvwEZvY+ZrcjO/L7GK0gez+2AkPVodmf3COna9BuHDO3rLWKez+ WG+kVhY1dcXtYOfLDIuc3iJ/Wdj65S3Ua8X5SjtDAHoVXGPjXjTj2/fRvVup Hf8sHFqW6It+FP79YsTBvl0z0MebqItyov08/N9FT4NT45JS8/W26A9N/Hxi 2vj5NLXx8wlo5+dT1s7PR9zBz2dfBz+f1x38fJI7qf/YUPnf/fEzvNRDdSIv CPcFWdFFfezukE/Pk5WSfwDZLSCv "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1H1MzHEAx/FfbVGNTYqJUFuhB3m4bKyaqHS6US5XclmcVUYKf8h5/Hks U1ETMkJqmXWVRE+XcHE93PWglGnVcJpnZjuSie/nm9/Pvtpae/W+h359vvdz USXL4yw5jttIvvGT4/gzxVPfLhv7wvxjAhcTQH5hoSF2kZbcM2xaT8zvhH1L 44+m6dahv4QVk2dKg9yi0OUlxEkHesZxqQp0HZxmOt1R+yYCXVJKfF0mPZcS KkcvgOvKOaWkOBzdoYy4VLJraf+01ejHYZPFq0bFQCi6GXZsj5Ab80PQ428R r85r6A2KD0Lvhle1nhhMKZGhh5QTzzpUsEexbw16Jex23mokaSb9++bchsXr 4S/Arnq9dX4CvX6bCuLsZAd9n9VGdDXs55aXar8Z5t7B8ZV7KuISaV9/h7gj O1O+djvtLbBZ6TEvkZr3vUs8oB2TnTTai+Ezj53aRs07VeL/eXbx0789A75j 7vpr/hc8Ltck9KQqYpX7oND74b7qYzty/WLRw6qJvzv7L1LkbUCvh+3SxH3n 1xB7ftYI+16FgyPFfe1qiWPrZgj7HobVruK+X+HsU+K+Ki2x5muIsG8nrI8W 9w2sI9Yd3insWwEPhb0U9nW9Rzx3hrhvDqz6oBP2taonPlfjE6d1X4a+G86x k/UlPPdFH4RHNF5fIjctQo+6T2w86zQmvX0uuh6+Yhzw3NrvjL74AfExyZSM 5arfS0m/AXP/vhwfMuZPsuaG/+tbdWzvZc3LGtiuZc17PWL7Zdb8+MdsP8ia /wQP11t7GpxxvVysXrQ/rr8N/nl6hXPus2D0gEaxr0Ivg3+lvL54yIfu59Ik Ph5781nURUWF5fuj0S2bxefT87ULdpj94HPqESX6K9g7U10RaMLj+YgWYql5 gfp3MD1fDbAq5p1/bVEkuo+BeJ8u3zLFhp6vQjjHQ6lfuI2er0lG4rIs+/RP BnyeuRNw81BL+E1ver6+wU3i9XAJrTgPGXj/leg9sIS+3wp0aRvxFvr6gehV 8CX6egHo7u3E1+jzl6Dnwrb08RJ02w7cn9LR3dH3womnYEf09x3sPson7D6G J+w+fp3sPppOdp/pXew+mV3sPiNd7D7JT3E/UIj3hwG4c+Jx4f4Q3k38UT16 f/gDhUo3ag== "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxV1A1ME2ccx/GzzukgGoxQwkQZ2VR8QQ1gIkOgWseLIkhh04LFgjIYQXSw 4cDJHqI4ugiZGZqislWlzTItIlJ5GYgI5WXUdgrWbSyD1cwFZtXpYGEZ2/6/ Q265Jk3z6beXu97/ec43bb8iXcJxnJre+OQ49umll0c2Pko8bVu/UC2jL2YY yeNuzj3+2hQyexd2+0DvNzKxC90BLx9SOauTk9EVNWR5hLRO3apE74BVRmu+ t89O9MDL5IPuH4d8x95Cr4ZPHArnKhyJ6O615IuOPzvjNiegl8Dm6FqNqyEe fQwers2M7Z69Hf3tK+Q/1mxa+mJ/DLodbsyqT1hcokCPrCPnt0ZWNOlwPtYA B7kNDiS2JKH7XSU/S8vxeHKP/39a+PsfuIvmglT0l+rJmlBzpmZfGnoBHOR+ vGekBOZG4YJxnzvKUr4nmcheZYeCtby5PrjD9MLBz6d6yDXy6zqz9IupfgmO iG9bOmXm3UBWR+/0e97L4MnVxc/NJuFnb5RM95xGsr5m2uwnOMDxs8vhJv76 45rIbR5hzqRRzJO1wTHRwnzXNpPrJh5Oz1cHW9TCfOd/Tf6lW5hvMfzvamG+ T2GvU8J801rIgZPHpufbD2/bK8xX3krO6BPmWw8XBwjzfe06+WylMN+TcPYM Yb6z2sjnbHWXD5+KRs+H7VWvBo8pI9AfwK7ZFTezF8nRd9wgF73nou1pD0fv hn91e/hVQ1Qw+vp2cpzxVqvBFoD+JXzgs5RzK41+6F43yUe08vIF+Z7oGpj7 //WX2CyrQ9wHxWZbO8W9RWy2yizuVWKzuV3iXiQ2ewRPbNkm2ZezFte/u1uw DNdvg99/knfkgj4KXdYjdNxvVgtfqxreNOcTzIvz7RV+z8/3BBwon90Z1s6v D8k3wvH8+sqFXScVvSfDdqPfh5fsdS2P16nQE/rI4X0dirkS/vhOWBnwoWfv HuxHFmQh51UG/XjUjPNxeriMc+pky3age9wiGzL06X+Xvol+DL5hVa1oHMV6 YuPw4Drp47wYfv9nWMljZ61X19Tw/+8e7DNn3u92n1j0KBs50V5UGHt/C3oj rKl+PLPLEIm+/Fvy9Vx1WWjWZvRK+KnsttTkvxHd5TbW9+KjMqUjBL0QNjWn J0S9sw79N3hDTbklZ9gfPfkO2fN8RWZ1CtYjZ4FLxw+YSh/gfGxDP1li3Xpm aB6//o1w+ytDg4Ur+P2zaID8UV6utzSCvz/lcGjXLNWVVNxP9g9cdNwSawjj 9/f+u+TIZuH5MAQPOIXnw3Y7OdV36vnwH7gdPN8= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF1A1QzHkcx/H/rYoascS4PJwaobhZbkuD49Ss8ljtrae2jhS1p9hGTFkP 55+nmLRKnpYaccLdKE9p12Nti6L1cCWXCaE8npFphNwU389Xdptpmte+2/// 9/t997+eMYmqWIkgCPPpF38FQcw81vdlYJiPPvJBsiaAXviugHz/t1fjzx+J I4tL4UWZwR6G2lj0J/B7y0FJijMsqgrJ6z+0N84cuxDdAkuHR5bLExag+x4n 584z/iXNiUE/BA/b7rb1jTUavdcJcvGVRK21bT76RljRWqn8WwaLLfABtTJO WjIPPe4k+Vxpl+FWj7nod+G0D2ebmrW4njDpFHmCybw89QesRzTCCoNfzzYz 9iN4nyZnixMWPN22CH0P7BqRUV9dBwvORWT57ApTQgN3Hew/LrSfrJH7K3a1 Pj2QLUacISufyNYovvZK2KlPc+FXiz8Xk09KXp/u6MdgqSahqKP3N5Kne63o sJABL47XfettsHP6NwtaE3ma3tYfwrXmml2evbmHnSXHtvyk+xz0O3oJ3Oxt m+/Ic+S19vnmwV3t8+1xnmywzzcVHmKfbzN8aphtvjEXcN72+VbD1izbfBUX yWr7fIvgZx9t8/W6BIfb5rsTFuzzdSwh9x1qbkpbF4meDPvx/tXoz+BQ3m84 +pxSsob3Nxu9HE7l/cxCH20m7+P1z0A/Chfzen9Fdy8j3+b1KdG3wDUlWE8I +ifYhe8/BT3egv3z/YLR6+DlfH0F+rTL5KN8vQD0C7ApA+8fg/7jFbIn/78v ei7sxt0H3fUq+RrP3x39D1iw/Yhv4CR33b00oxw9qpys87K4XV3I978Fa8Yn 56y+wesPqCBrQwb+ufkT7/8EnFWxq3W0hc/P8xqeFycHXdB6Pv8suP7F4UdN vvx8Sa7j+rvVjx0P8fyTYKfKM5aGOzz/Bji7vcdhsyMszqgke8i1m/f78/sv wwWx1+PXaHj+flaclzxkb/HIKPR8OMPgGJW0ne/f+wb5iHBpkOwdz38TbNYk v3g5KwL9PVx3U1aQb+T1a26SW0Y9XxrtPgf9X7h77n7/Aat4/pNvkX0cwv+v vc/7N8GKBGnpjl9U6D63yXOrKjYo83j+BvhtkiT7e4dQdJd/yIMDl/XPLJ+K vhJWd2/M75w+Cf0/WP9g5oi1oRPRI6vIOdEe+UsWh6Fb4UGtrua9nbAecVw1 Pm8b3mm9A7AfoQDuFqxxU23DeYgD7pDjVffytqbw+erhFJe3hUFj+Plshw8e GLylqg+edyGxBp83+/dDPTyqzPb9oLxLLuv4fvgCl0ViYg== "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxV1AlMk2ccx/F3MkWmtOsy3ECNY8MpiqLihYgWlw2kAVyVo0AFATlErRQt VI48utiNZBpYXMMyMeBwsglyDkFLlUMOFS3FURUVRUXFZR5UY0XF5/eiT1IS Qj582/Tp83+e1zlGId04huO4aPqLvxxHckudHvis/8kww3EwTUz/8UEZ9ce9 w9eSz6ioSQrcOGfGL/rCHej9cCqR+ooyt6NLj1FP7856FRuait4Mm6b/VVm7 QInuUU6dk34p3k6Qgl4Mq7QjS+qMCvRPK6h7vUIOyXO2oO+BV94qnWgjTkZ/ Bv+hsUkreZ6IHl9JPd4t/FZAWTx6D9yT8rN/t24zum8VtTGiT+YWj88jx+H6 7HTBoy1YLzezmrqwSNRcuQPfl+TDP7b8nbY9aye6XQ11bbvJsmpVBroaXpcp XPYkGOYG4SwfP/sHoXwP/4d6UfBCxeQwvp+Dh78aSf+CN/GqpfYxWiyj5krh jIq+cc6jfcpx6sCbruNHze2FJ931f2fyGpYvCHzft9ZR39W8N7kBa6+oG1I9 +PUH1VP7uR1WtgrU6KdgSzab77wT1Ee72HwLYbkLm6/oJLUgjc13F3y6g833 KaycwuYbo6N2UbD5dsNlP7D5ftNALXJl862BVRfYfF301FdT2Xx/hVc4svmO PYX56yskQ7Fx6CrYNs62Nt8pBn0ANn2iE2ceikIPPY35ypMc2oQR6G1wYsmk QVFWCPrSRur5Q836yMHv0Utgc0b/10Hl/uiOTdR7RN6GOzk+6Dnw7ED3IXP7 PPSXMMd+yKZmK3O91iaSFuuuszZxO2PdC6xN7Fute7a1yf+w52cdxQ4r/LC+ qDbmMKz/IpzcpfXKnYv94sTtrGO/SQVsKx+2/z1gK7pzB/Um/vX8fPNgqdn9 sXQxfz7GnGXvT0dXwg+TzLJER/583YYP6KYJT5rxerL2HM63UNJib+DvXws8 skGljj6K80QWnqeuqimaW63B53GH4TjbzttjY/j769CJ+xD+Ij/Mexu6Bs6V +R4ImY/1kufwszcF417dw3niEi5Qy4rN24oOJqGb4IbVkt7vghPQ/S5Sf/mo 6Nv/JmxEr4M1+1+U5zXx++NqwPfxDHJaoo5G/w0+qJfY1UdFon/URZ1gZ7lu 0xmKvhN2X/dnVeCytegP4cfeRwQeQQHoEUbq/bPqZMWt4ejn4c8jBFqTMhZ9 eTf1QKF4JHI31suVwTUDysT+PP7+TL2E54fWeL/awO/PPnhmfXKB6jK/v29g 4bUPpZ43MQ9O8S/16lz2fOiDh/vZ82FND+7notHnw1voDT/r "]]}}}, {}}, {{}, GraphicsComplexBox[CompressedData[" 1:eJxd0j0oBGAYwPGHMlAGxUAMykBJikExkIEy0BkUA12hDC4GxaBHoQzEoBiU gTLc+TzucJyP832czzMoilIog2JQhDrxf996e/v3W56e3mSrzVIbLiI13/fn FdF+e8JDgfydMAdam9hya7hlkr7J1qwp+hhbY6fpXWx9NbxuJtTamfH9apAt RbN0F1tS5+hDbIl00lvZ8mh45Tz9gK25C3Q7WxNd9F62fhje6OZ+rtlSukj3 siVziT7KlphlegdbXgy3euhnbC1coTvZmrJKH2RrhJfewtZ7wyvW6DtsyVmn T7AlfoPew5Z3wxs26VdsLfHRPWxN36KPsDV6m97+26H/8cyW6h16gC35u/Rp tiTv0QfYEr7P+ZrZcmd4+QHdx9ZsP32crXGH9G62vhlef0S/ZEtxgO5mS9ox fZgtUSf0NrY8nXB/Vafcn5+teWd0B1uTzul9bP003HbB+W7YUhb811//yDpX "], {{{}, { EdgeForm[], Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[{{59, 68, 67, 66, 65, 64, 63, 62, 61, 60}, {85, 94, 93, 92, 91, 90, 89, 88, 87, 86}}], PolygonBox[{{11, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12}}]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[0.01]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}}}], {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694267640625005`*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 437.5080645626918}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {3.3694267640625005`*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ RowBox[{"kapacita", "(", "kWh", ")"}], TraditionalForm], None}, { None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Baterie\"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 437.5080645626918}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox[ TemplateBox[{ "\"Pln\[AAcute] cena baterie\"", "\"4/5 ceny baterie\"", "\"3/5 ceny baterie\"", "\"2/5 ceny baterie\"", "\"1/5 ceny baterie\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.6924222499358673`*^9, 3.692422272250145*^9}, 3.6924313660419025`*^9, 3.692540142209396*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1HtIU2EYx/F3AykHEkkGjiSESsuIgUJXQStYMciwKFPoMrE7jiTELuS7 IFHosv5YFCkEFaxwuVI3TWtbs9zU1HQ6IbB7WUqF5Ipyrvd5YdTvHDgcPud7 OOflnMOTajTll6gZY3vFTkfGuKVe+zmX/dtUdjA/hmZvFT3/HnYfmmc2YL+F 5vMc2M+h+ZSi778vrIn2n7JsieSIPky+UnsnbkVmVJjpHwgXjFu7pq+TuYts WqIfdWXMUE9vFP7jW3hwKJ3MrzbGuk32+CbhTyVzMscSf1E/QbZN2N4cbf1B /Qu5NM2jMY+QeWGzcNTj2PW9cop6N9mwIy2iXfyT+lqncHNug8rkDFOvJ8+6 6y9os5L5Apdwb5HXUvdBPv8CWb9+pNyYItcfIddUB/LU39T0Hkpb8P2Molle K3Y3mukeYr+BZnPbsJvRbFLRje3YB9F8wyPsTWi+6DF2K5rHubGXo/lHRd/p wd6JZqu82G1olvwEew2a/Vb0wz7sL9Hc0IG9Hc2XP8Veh+YJz7CfIYeO2M9n aVXiPP9KduumK1bvZnTdnk7hzY73Tu+E/H/6yGUbVy5LyJY9xy9srhzLnv2a zB0x+ydlTw3Q/yjuf/ym7JfJxfFV8xPtsqu7cH1laPZO0bd1Y+9A86we7LfR POk59io0Dyv6gV7sITTb1Ie9Bc2W9mO/hmaaF9hPotk4eZ+YP6eL5XwpGhAO V5du13I5n3oGYvMqIL/PukHh2lBh8qEK2e3kjDVnLxl0sqcEY/ezyvlwMRib X0ly/s0E8fmmIVzfKzTbOvyf/wKT8oiW "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1GtIk1Ecx/G/iwqLCYIjCn2xbjTohdBNsMiKSOkm+iKypBpmYOGwQEoi T9EFlWohwgol6WJBU2fTTdNc6XLVLKvZjDKjImEGvSg1WGx2/gdH/Z7BGJ99 n3N2eJ6zYzRbcg7qiGi/fPMnkbDaF4Q20L9XXCNYlKDpi6bnNGHvRYsVzdhv oUWSA/s5tJjQ9MIW6TX2pvfJRSS/F0F2JHzt+uG9cXzdlvvS+QsTdQErW7jZ IU+oyvGOr6dlTul7CcHs9UNqvM053VPnqfHxrdJV0XUN3pTfGbKfYIf+VOeG 6selaYxtGq48qQ+yRV6b9MZZm20t5RPc/ewCa60raYkan+6SrvTNPlDsmuRu Z9vG3JmdNWyR7JYuMyy9XPctyv0i+6axudScMsU9wh5p8+84Ep7B6ytux/sz gqadHdg9aEp9gL0eTYmd2E+j6aemm7uwB9Bi00PsrWixuBt7DVrM9GAvRYtR Td/1CLsPTWmPsd9F0/we7BVoCmt6US/2D2ix1Yu9Cy2WP8Fehxb6Puyn2BW2 Y6b4jzrevz/YJfk9hgQjm/b5pINn046v6lD7f4C9qCTS93lK7e+Mp9Lp8v8z fEONd8Rc26bGG59Nz59VqPoV9tzV25yjFtV1z3F9R9H0VdNz/di9aLGyH/tt tDC8wH4eLSY1/dBL7ENoyhzA3o4m0yvsV9E05zX2MjR9Z++W50/1uDpf9ryJ 3f8z6v73s3/xeXVHPZ+1gdjzLFe9kd2ddaEgnKd6ymBsPr3ql9gN8vzybFfz Rwfx9y1vcX2f0JQd/M9/ATtue70= "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1F1Ik1Ecx/HjxIsFRdGLFdvFwMKoC6OCyCBFo6hoOS+MpHSDGa2lmCjV RZ4Ehd7MXkZ1IWnYktAyW2625SyXs9Q5X7LS6EUxMKGi2oyB1vkfGvV7BmN8 9n2e8xzOzo7OVGAwqxhjueJNn4zxqoblk6ns3yumEcwL0WxM0Q13sXeg+bp7 2OvQfFET9nI0Dyl63n3hoErNi4/EiO/5MNmWEUr35ajoum3Nwr+OHb69+gqZ O8llS9LXqt/S9SzxgfBWc1L46oi8/xrZkHtmsr8ukiK62iH8LVS+K7XrpzA/ Ti42BmYSzWT2mTxRun9kYVD2fQ+Fi8bttUtLQ9S7yfofXkvcimnqyS3CA87C N9aWMPUGcr7+gs5tI3ONU/jyjeSz1ROz1M+Tb47tKDFpf1OfITuaO3dbI7E0 /3wXrs87NNO3YveiWdIj7DVotsCN/RSafVd0kwf7IJqnPcbuQPOENuw2NI/z Yi9B80+KntWO3Y9mG59gr0ezZU+xn0aziKJbOrCPovlOH3YPmq95hr0azed2 Yj9J1nztDRg/0H7gX8jzHBp3XoLcHzl+YcvoJW2lR+7/PnK7P8u6KVb2lC7h 1+L/s8Eu72+KOuSSXfdceKUYv/aQ7BfJ9efse7cUya56gfM7imbjip7Zjd2H 5ut7sN9C88W92CvQPKzoBwPYX6HZ9j7sLjRbFcR+Hc3m9GM/gWZT5LA4f6am 5fmSPRBd/wp5PvWQq+i8uiN/n82Df9fbWCZ7Izm75qM684Ds2qHoePNlrySn ifMrPkOOPzuEzy94ifN7j2Z7hv/zH7AFfr0= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1EtIVFEYwPGvKZFCF4EFRlMJFUotoloERYy0KAhsUCgw6DH0gLAkGYQm sq9FgYvCoIkKBkKKDMaaynTKyUdOTaWNz2whFGRFD2hhqTCRdT839r8XLpff /Z/DPRwOtyBQWXrQIyL7nNueIloXXfS1WGauWY2wHqflg6uX3mHvonXdXfYb tObF2M/SOu7qh+459njyL4cm5zjvddgcLr61Z8CbZeO23oe1hZbCB479ofKi 3OAvn9OvmNtu7w/G68ccy9wmx6dj6Y7Nv39aP2FeFqxPNPhtvHwzXyrJyc5O T88vf+j4S3LJyo8149a7zZGda1fJiknrG5sdpzoXllU0T1iPmo/2Lc1rDZt1 cYvjquhobeTTlPXz5vCpwuqA96/1P+ZgJllSkZlt6z8W5/68o2XHI/Z2WtY8 Zr9Oy/xW9jO0jLl6IME+SOuWJ+xNtC5vYw/TmtXOXk3rZ1ff1cGeomVDJ3sD LflP2Wtpybj6kS72EVq3J9kTtK5+xh6hNfc5e4352sz5/mGumznfe1Ow9tLi e8Eeo6XgJftFWjyvuL4qWkZdvaybPUnr+h72m7QueM1+jtYJVz+cZn9Ly7Ze 9jgtRX3sV2mZ188eouV7P/dv9wD3r4fWTYPsjbR6h9gvmE8e8OV4R6b/f1ND /H7lG67vPS3+4f/8DwsudP8= "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1F1IU2Ecx/F/luSCRKtBxnYhrDeJLOzC0sgwKJJeMIYxL1qDbKkp7WJR F/oYGAhmVgzzworQ7MKZli/TWaucWb7ma4VQaBSY4UW5CWLW839Y1O8cGIfP vodzHp7t/GNt+elnwojIKj98JhLldRum99O/Y5kbLC6gaUrT0+uxd6JFwiPs 1WixrgF7MVoEND2rUdq80xlRb4+W34txtufk9+yxSTYdfCydk7vZoFtUvZUd 7107OX9X9S1PpK9PlaTuUxa32VfuzKyvaPudIruuSbpT71xhPhyQFpfYwxWV wTjHHPdvbHt4zQfrEFtYmqVde0/P7i7k66mXfWQx0RexcZ57Uot0aXjj9vMt Qe517MhqfZzXxRaGVunkCX1p1Zcl7tfY9mar02bk9Yhf7Jie7qO5C8t5/Xke 3J+PaDrWht2Hph3t2O+hKdqLvQhNPzTd1oF9BC1Sn2JvQgvTM+wutAj3YXei xVdNz3iOvRtNiS+wP0RTzEvsJWha0PTsTuwTaJHmx96BFtu6sFehxepX2AvY RbXv40331/D/d5Yd0NGDTQfYdKpbutaYlLEnSvVB9sCtqoLyBNVTXktb5PsT Wax6w1/nlake+yZ0f3+W6jfYaUH/3M0c1cN6cH0ONH3W9BO92P1osasPew1a 6PuxX0WLoKafHcD+Dk2HBrF70LT1LfZKNK0awn4ZTTNsh5w/0241XzKHpbvk /kcF1PzpY/vkvDKvVPubPCJ9kX/Pn6q72SZh6zeoeSaMo6H7nWtXvWw0NL8K LaovjeLz88dwfZ/QdHz8P/8BVaJ2KQ== "]]}, { Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9lFlIlFEYhn9tLBSMTL1omQtpcQIjWy6E8cJQaipSsSKri2zaJCQpwpYL +YUyxkgMEYqYEjIM0nRcchmX1HFcx8m1qbDCocicokzH0tTO93I+L0Seec/7 bef7T5gxPemsr6IoKeKP/iuKmleydnz3d1u8J65uMkb84FMqGErAL8HqJeK3 JrPL30CsjC1x9G/Sk16wX0OstBH7UIA/8O8sE3zH7DKZn/wkvYg4wxieMRZB +dSQcsEkJz+fIv3WErsRf5rYEqy3BI8i/zmLYGE3Fi9H/BEL559A/XsrBFfQ +cPw1xC3x3tsfW74dZWCEzzC8An++5Wsp8DvX8Xxp+C/XiXnoSSivm/EOtGA 10GsHq8WfJX6yZwmvaeaz2+aIV3/UnCiyJf20kt6CXGoKM9aQKyurxGcQw1/ XiD9bo2MZ9Qukj5fI+tNm11GcS/WCraLenMNfoLVD8QhIt5ckIb0hDp5P/ua 6bzaTBwtBrhdgR5ZL5jav3kbeiGxngZc4Et6kJX7maF61CyrjG/V+JA+aeV5 H6HzqrFBsIvyVUAfbJDzjNcRq7GNsr/RHOhVjXIftMfg39gk6zX1IH9BE+9f Hfx+zTLeymz4M5r5/vZD/0J8mu5rSCH96Cu5P65czK+DOTl1juYb1cL3Xf+P 9Gctsn5TFOa/plX2Z2uF39TK++RG/FliQmsq8l9ok/PUuKC/b5P7E74B/gM2 nr8O8Rtscp76rfOkR7Rzv8FUj2Jul+ctzr+kB9oFl1PCEuxXpp3Pe4jVH3au /wr282QH91+E/XV2cP4d0GM6BZ+h+q7BX97J8zMjflgX7+8i9vteF9e7Grpv N+ePhX65m98DLeK7u2X84jzkP9TD+70H74OtR+YLXwF9Vy/XO43v7ynxY7qv cbwPoQ7ex0D4s5d4CrrXwftYCP/5PsHvqJ4s1PemT74f+V74DU75/WY8hL/W yfdtgH/La65vM/QHxI+onhi8HwH9ct7+p/B+3OiX9x+3CvpEv9yX/HXwnxjg +Uchf+8An89C/9GDPM9I6KWD/P1/hV87xPEOor7cId5/B72n6gIxles1In/6 MN9nGfwfh/n72ob4iSP8/Y1MxvwHH3B71Q== "]]}}}, {}}, {{}, GraphicsComplexBox[CompressedData[" 1:eJxd0j0oBGAYwPGHMlAGxUAMykBJikExkIEy0BkUA12hDC4GxaBHoQzEoBiU gTLc+TzucJyP832czzMoilIog2JQhDrxf996e/v3W56e3mSrzVIbLiI13/fn FdF+e8JDgfydMAdam9hya7hlkr7J1qwp+hhbY6fpXWx9NbxuJtTamfH9apAt RbN0F1tS5+hDbIl00lvZ8mh45Tz9gK25C3Q7WxNd9F62fhje6OZ+rtlSukj3 siVziT7KlphlegdbXgy3euhnbC1coTvZmrJKH2RrhJfewtZ7wyvW6DtsyVmn T7AlfoPew5Z3wxs26VdsLfHRPWxN36KPsDV6m97+26H/8cyW6h16gC35u/Rp tiTv0QfYEr7P+ZrZcmd4+QHdx9ZsP32crXGH9G62vhlef0S/ZEtxgO5mS9ox fZgtUSf0NrY8nXB/Vafcn5+teWd0B1uTzul9bP003HbB+W7YUhb811//yDpX "], {{{}, { EdgeForm[], Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[{{59, 68, 67, 66, 65, 64, 63, 62, 61, 60}, {85, 94, 93, 92, 91, 90, 89, 88, 87, 86}}], PolygonBox[{{11, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12}}]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[0.01]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}}}], {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694267640625005`*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 305289.0467249081}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> { FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin -> {3.3694267640625005`*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ RowBox[{"p\[RHacek]\[IAcute]kon", "(", "W", ")"}], TraditionalForm], None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Ni\[ZHacek]\[SHacek]\[IAcute] tarif \"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 305289.0467249081}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox[ TemplateBox[{ "\"Pln\[AAcute] cena baterie\"", "\"4/5 ceny baterie\"", "\"3/5 ceny baterie\"", "\"2/5 ceny baterie\"", "\"1/5 ceny baterie\"", "\"prbeh celeho dne bez baterie\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.6924222499358673`*^9, 3.692422272250145*^9}, 3.6924313660419025`*^9, 3.6925401425494165`*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1HtIU1EcB/DjE1QMbEYP9A8rmkqRUpo5iUXlA8GFYZIl6cCyjKxIK7E6 QhkGPqIke4j2gjIf85HaZmm6OU1zmk0tsTQrH/MBllLWZr/fwTs4Dsb43O/5 nfu79+7+3OSJ4XGWhJAY+OIvITSneM3YzkfbNUOFcoMUDliUgFvLxHYrbUbB 9DQ6tUmu9KRo8tXs+AnMw0uF+t+svqlUqB8cw3xLGXhovM8lfNsI5o/RqrPJ s/0h45g7K8ALMZLdLYHTmF81u3oS81n05t78hB1FuB85Ug4m5g/t4U2CKvi8 hjdxr+TzPN7ErorPL/Am40vyqBd83sabSqr5vJg3danh80ze1LgkP1kLrvX3 vXZLbQnH6We0rfivnmRZ4DrZS7A2aeSuTIKm9Wjv/GijbyrLvZTgT4q80utW LC9ULubVTgRzJxVY7q+an5z+I4U8De0cNvc8zcIIJjNobax3dO7DBczldeDb hg6fgkMmzLvR8Uknlj0LxvV01yuwcfmevGZHllcJDixi9etfg/XQb3YQO38u +nvvzSsOCbie2tSDU2A/D2tWn4y+rHBd+y2T7f8DXbaBhkQ9+Id5ZIOQp89j rkWHNOSk/DqA10P83oDbwibUHUpcT5+iOzPy+zL82P6rG8HzaljQyPrLQFeK JOWiYdbfPHoVUBXP7t/xJvAorLfuY3k/Ok6cLBevY/WharBPuUji7c72r0Pb Qr1kE+t/o2bx+VIR6z9fs7i+XMfuv2MzWIPnL57F/FIz//+Y4k0Oa/lcx5tI W/hcwZu4tfL5Dd7E8q3wfp+bwv7OoCtxHniiyTA61CTqiHNi7+++NvBPfP8v 4rwg6jYhN+G8oFvbwcGx8L73s/nxxOxGlq94By7AeeHA6tPN/sjyOXQSzh8v Vn+0Q+hnhvXXi7bH+TGA/ZBgHXjw3kSklZjV1+qE+jScR8SjU+gvgM2nO51C P6fY/LPvEvavYPMxBR0Rcf5YxX7Wn6GLv38H3/P3r503Dejm8xLe1PUDn2fx piZ0NvYrY9efqOdMv+iFeS1j/e3tAQ/g87hvkP4HCxkRTQ== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1HlIVEEcwPFRrEiwqNXosrIEFS2VCoQ12rDQWMhS0MoO2zzKP/IAT0RG IsHSUkkzyCNLFNJ01fUuS9f1Wt1V8ypT0bL1SCTUytL6/QbfwiiIfPY783bm Pd9YyII9/A0JIb7wi38JoSlFu6dOedrHtZl26STwgUExOCZ/bP5+yFcwDUXb 1ezJy55Bk3G9e6ewe7wW5vuhSRP6Ls6XfsN+tAScNpZqpMr7gv0lWhZk/9ld wbppKbjEa8HWuWwW+z29D85gX0SPqr08y8xwPAmQg4n+h/bzJq5lfK/iTazL +Z7Jm2yu4Hs0bzK9rl9W8L2DNxVX8r2IN91bxfdk3nRlXb9TDbaMsowP3W8I n9MRdJjflOazjuA49xqwU3nfY7sMNG1AZ36U/hQNsO5QC5bOJRQGXmM9F+2o eDJnNbQqgb6tbs0F+b/ANB691NqTI676g/0HOmPY5IL7RRxPZfXg6IBXNpe2 r2DvRZ+ddzO8uYrjqcsb8EiyRRJt+ou9QjDxZfMt34IfwPyh0/+wp6NVHiFR zQfwenRDA9gHrjdRw+ZHoG/YLptlu6DpJDrl+ZUTpt5sfd7vhO78G3uL4H07 FrE7vQfnVGwND9YuYy9EaxOzBhOd2P53NYKXledmlY24HpqILheJ5aIJdv+W 0TuBdbcM8P4FNYF1MN5okPVPaH+rCJnVITZfqgQfl4vEjtbs+vXojTBffJjt z6557flSEdtfVvPaeLmGrd9EBc7F7y9i649T8f8fc7zJ9Ra+a3gTSSvfS3kT iza+p/Imhu3gJHy/x9n7GdYunAfpaDKB9lpQK4Zip7F7doAr8f3XsfNBid6C /TY7P46pwcbe8L67sp6v9xHWzTqF8yKS9QS9z7C+hHbC8+cZO78Cu8DhuJ6r eJ7QAXQnnh9ubH1uGvCL1PyTkWk4nlZrhPnf2flioxXWV8DOp6daYT3D7Pwz 7haubz6JPQbt4wDzY1mf6ebvn08Pf//UvKlzL9+LeVPzD3x/yJuuoh+tirr8 3dn+gvvAElx/LdvfaJ/wfGrZ/TvfD07G57FpSvIfoocPaQ== "]]}, { Hue[0.14213595499957954`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1HlIVEEcwPFR7BIMajW6rCxJRcukImGNNjQUFtpS0MoO27zyjzwgNREZ /0gotFTUDMrMWhTyvq8yU9drdT1Ss7zQsl01kfAoy63fb9i3MAoin/3OvJ15 zzdW8lDPAGNCiB/84l9CaHL+bu1ZL8e4dvNujQQ+MCoAxygmFh6GfQPTcLRD zZ6crFk0mTS4X4vds1CY748mTYXCfOl37MeLwKkTKSbKnK/YX6PlIY6jsgrW zYvB1d6L9i6lc9jvo4vQB2exL6HHVd5epRY4ngSWgInhhw7yJu6lfK/iTWzL +J7Jm2wp5/s93mRmXb9SwfdO3lRcyfd83nRvFd+TeNO1df1ONdg62jo+fL8x fE7H0BH+WvWohuA4WQ3YuWwgzSEDTRvQmZ+lK6Ih1o/VgqXzCXlB11nPRjtV PJm3GdZJoG+r0ztX8QtM49HLbX0vxFV/sP9EZ4yYXZRdwvFUXg8ODHxjd3n7 GvZ+9KkFD+NbOhxPXd+Cx5KsEmnTX+zlgokfm2/9Tj9/2O0f9nS00jMsuuUA Xo9uaAD7wvWmatj8SPRN+1WLLFc0nUYnv7x62tyHrc/nvdBdfmNvFbxvxxJ2 50b9+LTgZex5jcJ+plew7/oAdnMTHQ7fvIr9AbpMJC4RTbH7t4reCawLNsL7 F9IE1jSfnzP5xPoXdIBNpNzmEO6HSpvBJ0tEYidbdn/r0RthvvgI259Di/75 UhHb3/MW/fgSNVu/mRKcjd+fz9Yfp+T/P+Z5kxutfFfzJpI2vhfzJlbtfE/h TYw7wIn4fk+y9zOiQzgP0tFkCu29qKoYjp3B7tUJrsT3X8POh+ZOod9m58cJ FdjUB953d9YVBh9l3aJLOC+iWE8w+Bzry2hnPH+esfMrqBt8F9dzDc8TOoTu wvPDg63PQw1+laI4E5WK42m1Wpj/g50vdj3grbi+XHY+Pe0R1jPCzj/TXuH6 ltPYY3qF+bGsz/by98+3j79/Kt7UpZ/vBbyp5Ue+P+JNdejHOlF3gIztL3QA LMH117L9jQ8Iz6eW3b8Lg+AkfB6btJL/vHQLFQ== "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxd1GtIk1EYwPHTKiLBoNSii5UhlChZFCRotDBR2IeVglZmmXkpP+QlUhOz I5SQaamoGZSVNRS8ps5bls7pvE3npSneUrSWUxtSNkvTep7DXuEoDPntf87Z ed/tPTYBYZ5BIkKIP7zwPyE0tXCX/rSXY3ybZdeUGN5YVwSOlY3PJYV/BdMI tEPN7tycGTSZWHWfHrtnsTA/EE2UxcJ8yTfsx0rA6eNpG1S5X7C/RQeEOo5K 5axbloKrveftXcpmsT9Al6APzGD/hR5Te3uVWeF4EvwOTFb/aD9v4l7G9yre 5FA537N5k80VfL/Dm0yv6RflfO/gTZ0r+V7Im+6p4nsKb7q8pt+sBtvG2CZE 7BPB+/QzOjJQrxmdIjhOWgN2KtdmOGShaT06e0iyYDHA+pFasMSQmB9ymfVX 6KPyp4aDgyti6Fvfm5wn+w2mCWhja+9L56ol7D/QWSPm56TncTwNqAMHBxfY Xdi2jL0PfWLOQ3RtBcdT1w9gdYpNMlX+xV4hmPiz+bYfwY9g/uCZf9gz0SrP 8Jjm/bge3VgP9oX1JmvY/Cj0VftFqxxXNNWhU19fOmnpw/bn0yB0lz/YWwTv 3f4Lu5PCND7juhF7vkK4Ht0C9p2N4IYd9YFJ4Wz+Q7R9rG5o9hZbf7FRuB/3 2OeHKk3zNX6sDyuF8d3s/kmawEvr75cbtWz9uibh+ofZ5zs0m67XTcH296LZ ND7q7k/s5irwXCf8/ssN2ONV/O/DwJtcaeG7hjcRt/K9lDexaeN7Gm8iagcn 4/M9wZ7PyHbhPMhEk0m097xaPhg3jd2rA1yJz/8UOx+aOoR+g50fx9VgBT7v 7qzLVn2YdatO4byIZj0RXYB2Y92IdsLz5zk7v0K6wLdxP354ntABdCeeHx5s fx4a8Js02anodBxPqzXC/O/sfLHrBm/B/eWx8+kZ2swH9jPCzj+zHmF9ax32 2B5hfhzrMz38/fPt5e+fmjd16eN7EW9q/Ynvj3nTFfSTFYuuICm7vjAtWIz7 r2XXN6YVvp9adv/O9oNT8PvYpBf/B3Z1Hfw= "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxdlGtI01EYh49RgZFUrKQreSlmYJQ3WqwPqyQFQcM+BPVBnWgRlKQ0SKJO HzJGll0QTBgoJUrNdF6mNk1t89a8myYECUplKlmKkpFb7+/PNngdjPHsOb9z 3nPOywnWZyVnrBNCpNIXv0LIx+bdP05eDTLo1XmvdfSHXyWx8H3kdc5iEuyX ojbo5+tpvEx+Q9y9VWtR5dQgbwe7g+YciXO58FFVPP8SnF+m0loWn8Fvryb+ fpDWz+5E/p6PI9vgl6p5PtPC6xvjLOJquG/gLMJquS/iLPzruL/JWcys8Rfq uXdyllor92bOcm8D9w85y9U1/loj8Qujady/7o+O/BfwKb3aMHlmmVgkNRH3 uN3uO6VL8K3ggkS6j1DFH31LPHdDr16OUHwJ+AF84iL8NhtxoGncaIqZgb8L jqP59eG/4BfAK5Q39C3A65uJh7He/d/wI2Az1WfMwXh5uoVYQ/FyjeLrvKwe VfIH3nny7iZl/UKw0j6FGC83tHrm8z+i5A1gC2lHozL/N7Ad9RTNw59vI07H +umz8F0+DpyC17R7x9u+wleA+2dpQus0/K73xK40KtCp5I3ggKWV8Ok0Zf2/ 4C3U7rbLfnQv8oqdeJri68cF7ukzOAP7C3Ujn+AgjrGotBFhLuSbwRsprz28 Ch/e4blfqfoHb+rwjLcMrMAHdBKXEKrMuC9xu5P3x0/OIqWL+wHOQtfNfTVn EdzD/RPOYt0HYmsqbTDKjvqywZoqKtDdjvqmwG3HaAPHbfDnnMQtxdRPRVZ4 h9PrS/FeyOhe4p0JdOH5FvgyHzuq4Xf0Ee/BAW+uhc/z8S2Ml8vgkBA678wK +Ev93nr2d8B/AjetUn858Z6I+AHioXiav7ccvhEcG4uGK4Y/NIj3bYIw9in8 80G+/01D/HxyOYvZNf7iMPe9nOWJEe4rOct9H7l/xFm6wAUuVX9GEvpVZI1i /1nU38mvUP/EqPe9VuO9FmfHiCOj6fyDq3T/AdSX8dk= "]]}, { Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9lFlIlFEYhn9tLBSMTL1omQtpcQIjWy6E8cJQaipSsSKri2zaJCQpwpYL +YUyxkgMEYqYEjIM0nRcchmX1HFcx8m1qbDCocicokzH0tTO93I+L0Seec/7 bef7T5gxPemsr6IoKeKP/iuKmleydnz3d1u8J65uMkb84FMqGErAL8HqJeK3 JrPL30CsjC1x9G/Sk16wX0OstBH7UIA/8O8sE3zH7DKZn/wkvYg4wxieMRZB +dSQcsEkJz+fIv3WErsRf5rYEqy3BI8i/zmLYGE3Fi9H/BEL559A/XsrBFfQ +cPw1xC3x3tsfW74dZWCEzzC8An++5Wsp8DvX8Xxp+C/XiXnoSSivm/EOtGA 10GsHq8WfJX6yZwmvaeaz2+aIV3/UnCiyJf20kt6CXGoKM9aQKyurxGcQw1/ XiD9bo2MZ9Qukj5fI+tNm11GcS/WCraLenMNfoLVD8QhIt5ckIb0hDp5P/ua 6bzaTBwtBrhdgR5ZL5jav3kbeiGxngZc4Et6kJX7maF61CyrjG/V+JA+aeV5 H6HzqrFBsIvyVUAfbJDzjNcRq7GNsr/RHOhVjXIftMfg39gk6zX1IH9BE+9f Hfx+zTLeymz4M5r5/vZD/0J8mu5rSCH96Cu5P65czK+DOTl1juYb1cL3Xf+P 9Gctsn5TFOa/plX2Z2uF39TK++RG/FliQmsq8l9ok/PUuKC/b5P7E74B/gM2 nr8O8Rtscp76rfOkR7Rzv8FUj2Jul+ctzr+kB9oFl1PCEuxXpp3Pe4jVH3au /wr282QH91+E/XV2cP4d0GM6BZ+h+q7BX97J8zMjflgX7+8i9vteF9e7Grpv N+ePhX65m98DLeK7u2X84jzkP9TD+70H74OtR+YLXwF9Vy/XO43v7ynxY7qv cbwPoQ7ex0D4s5d4CrrXwftYCP/5PsHvqJ4s1PemT74f+V74DU75/WY8hL/W yfdtgH/La65vM/QHxI+onhi8HwH9ct7+p/B+3OiX9x+3CvpEv9yX/HXwnxjg +Uchf+8An89C/9GDPM9I6KWD/P1/hV87xPEOor7cId5/B72n6gIxles1In/6 MN9nGfwfh/n72ob4iSP8/Y1MxvwHH3B71Q== "]]}}}, {}}, {{}, GraphicsComplexBox[CompressedData[" 1:eJxd0j0oBGAYwPGHMlAGxUAMykBJikExkIEy0BkUA12hDC4GxaBHoQzEoBiU gTLc+TzucJyP832czzMoilIog2JQhDrxf996e/v3W56e3mSrzVIbLiI13/fn FdF+e8JDgfydMAdam9hya7hlkr7J1qwp+hhbY6fpXWx9NbxuJtTamfH9apAt RbN0F1tS5+hDbIl00lvZ8mh45Tz9gK25C3Q7WxNd9F62fhje6OZ+rtlSukj3 siVziT7KlphlegdbXgy3euhnbC1coTvZmrJKH2RrhJfewtZ7wyvW6DtsyVmn T7AlfoPew5Z3wxs26VdsLfHRPWxN36KPsDV6m97+26H/8cyW6h16gC35u/Rp tiTv0QfYEr7P+ZrZcmd4+QHdx9ZsP32crXGH9G62vhlef0S/ZEtxgO5mS9ox fZgtUSf0NrY8nXB/Vafcn5+teWd0B1uTzul9bP003HbB+W7YUhb811//yDpX "], {{{}, { EdgeForm[], Directive[ RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[{{59, 68, 67, 66, 65, 64, 63, 62, 61, 60}, {85, 94, 93, 92, 91, 90, 89, 88, 87, 86}}], PolygonBox[{{11, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12}}]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[0.01]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96}]}}}], {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {3.3694267640625005`*^9, 0}, PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> { FormBox[ RowBox[{"t", "(", RowBox[{"15", " ", "min"}], ")"}], TraditionalForm], FormBox[ RowBox[{"e", "(", "W", ")"}], TraditionalForm]}, AxesOrigin -> {3.3694267640625005`*^9, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ RowBox[{"prikon", "(", "W", ")"}], TraditionalForm], None}, { None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{3.3694272*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694488*^9, FormBox["\"06:00\"", TraditionalForm]}, {3.3694704*^9, FormBox["\"12:00\"", TraditionalForm]}, {3.369492*^9, FormBox["\"18:00\"", TraditionalForm]}, {3.3695136*^9, FormBox["\"00:00\"", TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}, {{3.3694272*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694488*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694704*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369492*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695136*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694344*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694416*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.369456*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694632*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694776*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694848*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3694992*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}, {3.3695064*^9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0, 0}]], TraditionalForm]}}}}, GridLines -> {{{3.3694272*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694488*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3694704*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.369492*^9, Directive[ GrayLevel[0.5, 0.4]]}, {3.3695136*^9, Directive[ GrayLevel[0.5, 0.4]]}}, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> FormBox["\"Vyssi tarif \"", TraditionalForm], PlotRange -> {{3.3694281*^9, 3.3695136*^9}, {0, 174353.84615384619`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {None, None}}],FormBox[ FormBox[ TemplateBox[{ "\"Plna cena baterie\"", "\"4/5 ceny baterie\"", "\"3/5 ceny baterie\"", "\"2/5 ceny baterie\"", "\"1/5 ceny baterie\"", "\"prubeh celeho dne bez baterie\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.6924222499358673`*^9, 3.692422272250145*^9}, 3.6924313660419025`*^9, 3.692540142678425*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6913870640526*^9, 3.6913870651169353`*^9}, 3.6917867163137016`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"IRR2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FindRoot", "[", " ", RowBox[{ RowBox[{ RowBox[{"TimeValue", "[", RowBox[{ RowBox[{"cashFlowAll", "[", RowBox[{"[", "z", "]"}], "]"}], ",", "r", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"r", ",", ".05"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"investice", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cashFlowAll", "[", RowBox[{"[", "z", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"usetreno", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"cashFlowAll", "[", RowBox[{"[", "z", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6920202745988345`*^9, 3.692020404144981*^9}, { 3.6924316275724516`*^9, 3.69243163245374*^9}, {3.692431791260825*^9, 3.6924318835831223`*^9}, {3.692432140771839*^9, 3.692432175677839*^9}, { 3.6925406078254395`*^9, 3.6925406103925962`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", "\"\<4/5\>\"", ",", "\"\<3/5\>\"", ",", "\"\<2/5\>\"", ",", "\"\<1/5\>\""}], "}"}], ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"BaterieAll", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"-", "NPVAll"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"r", "/.", "IRR2"}], ")"}], "*", "100"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"-", "investice"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{"usetreno", ",", "\"\\""}], "]"}]}], "}"}], ",", RowBox[{"Frame", "->", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.6924313985923824`*^9, 3.692431527160553*^9}, { 3.692431602976043*^9, 3.6924316165428286`*^9}, {3.6924316623184404`*^9, 3.692431759039979*^9}, {3.692431890663519*^9, 3.692431961176556*^9}, { 3.6924321796930785`*^9, 3.692432182582234*^9}, {3.6925401884580455`*^9, 3.6925401910352087`*^9}, {3.692540337755974*^9, 3.6925404271370935`*^9}, { 3.6925404607280283`*^9, 3.6925406023531275`*^9}, {3.6925406477417374`*^9, 3.6925406768553934`*^9}, {3.69254071939783*^9, 3.6925407772651434`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Cena baterie\"\>", "\<\"Plna cena\"\>", "\<\"4/5\"\>", \ "\<\"3/5\"\>", "\<\"2/5\"\>", "\<\"1/5\"\>"}, {"\<\"kapacita baterie [kWh]\"\>", "102.12945764363731`", "131.41977972972282`", "148.26942850226098`", "207.133264768044`", "437.5080645626918`"}, {"\<\"NPV [Kc]\"\>", "402388.82507670287`", "687054.9193052084`", "1.0461279904374124`*^6", "1.5237228090246972`*^6", "2.72031173968122`*^6"}, {"\<\"IRR [%]\"\>", "10.869796119023894`", "14.411994383820984`", "21.04224315930058`", "28.84247364355339`", "42.764859560524506`"}, {"\<\"investice do baterioveho systemu [Kc]\"\>", "1.3235977710615399`*^6", "1.3625602762377665`*^6", "1.1529430760335817`*^6", "1.0737788445575405`*^6", "1.1340209033464976`*^6"}, {"\<\"usetreno za rok [Kc]\"\>", "223523.16052895854`", "265434.5447415344`", "284789.7637821597`", "336388.34761923866`", "499153.71071079`"} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.69254042166978*^9, 3.6925404277391357`*^9}, { 3.69254048001612*^9, 3.6925405082647386`*^9}, {3.692540557324547*^9, 3.692540587145254*^9}, 3.692540620584172*^9, 3.692540739855*^9, 3.6925407795762763`*^9}] }, Open ]] }, Open ]] }, WindowSize->{1350, 685}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, Magnification:>1.2 Inherited, FrontEndVersion->"10.0 for Microsoft Windows (32-bit) (September 9, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 1777, 50, 360, "Input"], Cell[2360, 74, 394, 8, 26, "Print"] }, Open ]], Cell[2769, 85, 214, 5, 36, "Input"], Cell[2986, 92, 6761, 135, 336, "Input"], Cell[CellGroupData[{ Cell[9772, 231, 7110, 133, 561, "Input"], Cell[16885, 366, 138, 2, 36, "Output"], Cell[17026, 370, 144, 2, 36, "Output"], Cell[17173, 374, 144, 2, 36, "Output"] }, Open ]], Cell[17332, 379, 120, 2, 36, "Input"], Cell[17455, 383, 543, 7, 60, "Input"], Cell[CellGroupData[{ Cell[18023, 394, 100, 1, 88, "Chapter"], Cell[CellGroupData[{ Cell[18148, 399, 6609, 157, 635, "Input"], Cell[24760, 558, 1873, 42, 275, "Output"], Cell[26636, 602, 36221, 732, 293, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62906, 1340, 98, 1, 88, "Chapter"], Cell[CellGroupData[{ Cell[63029, 1345, 4391, 125, 474, "Input"], Cell[67423, 1472, 5078, 98, 275, "Output"], Cell[72504, 1572, 36840, 742, 293, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109381, 2319, 9736, 209, 474, "Input"], Cell[119120, 2530, 29955, 637, 279, "Output"] }, Open ]], Cell[149090, 3170, 412, 9, 106, "Input"], Cell[149505, 3181, 1250, 22, 60, "Input"], Cell[150758, 3205, 2869, 66, 152, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[153664, 3276, 110, 1, 122, "Title"], Cell[153777, 3279, 49770, 943, 2581, "Input"], Cell[203550, 4224, 142, 2, 36, "Input"], Cell[CellGroupData[{ Cell[203717, 4230, 14943, 251, 359, "Input"], Cell[218663, 4483, 140, 2, 36, "Output"], Cell[218806, 4487, 366, 10, 39, "Output"], Cell[219175, 4499, 16626, 404, 1164, "Output"] }, Open ]], Cell[235816, 4906, 143, 2, 36, "Input"], Cell[235962, 4910, 122, 2, 36, "Input"], Cell[CellGroupData[{ Cell[236109, 4916, 10787, 230, 727, "Input"], Cell[246899, 5148, 11724, 271, 293, "Output"], Cell[258626, 5421, 26881, 583, 346, "Output"], Cell[285510, 6006, 27133, 587, 346, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[312680, 6598, 1079, 23, 152, "Input"], Cell[CellGroupData[{ Cell[313784, 6625, 293, 7, 26, "Print"], Cell[314080, 6634, 288, 6, 26, "Print"], Cell[314371, 6642, 301, 7, 26, "Print"], Cell[314675, 6651, 298, 7, 26, "Print"], Cell[314976, 6660, 292, 7, 26, "Print"] }, Open ]] }, Open ]], Cell[315295, 6671, 6615, 112, 221, "Input"], Cell[321913, 6785, 1242, 26, 83, "Input"], Cell[CellGroupData[{ Cell[323180, 6815, 7431, 181, 497, "Input"], Cell[CellGroupData[{ Cell[330636, 7000, 330, 6, 26, "Print"], Cell[330969, 7008, 332, 6, 26, "Print"], Cell[331304, 7016, 344, 7, 26, "Print"], Cell[331651, 7025, 310, 6, 26, "Print"], Cell[331964, 7033, 327, 6, 26, "Print"], Cell[332294, 7041, 338, 7, 26, "Print"] }, Open ]], Cell[332647, 7051, 11463, 244, 319, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344147, 7300, 2756, 67, 198, "Input"], Cell[346906, 7369, 12999, 270, 275, "Output"], Cell[359908, 7641, 13496, 277, 282, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[373453, 7924, 109, 1, 122, "Title"], Cell[CellGroupData[{ Cell[373587, 7929, 3553, 78, 313, "Input"], Cell[377143, 8009, 610, 12, 26, "Print"] }, Open ]], Cell[377768, 8024, 87, 1, 60, "Input"], Cell[377858, 8027, 621, 17, 60, "Input"], Cell[CellGroupData[{ Cell[378504, 8048, 2931, 67, 152, "Input"], Cell[381438, 8117, 2578, 48, 425, "Output"] }, Open ]], Cell[384031, 8168, 94, 1, 36, "Input"], Cell[384128, 8171, 122, 2, 36, "Input"], Cell[384253, 8175, 120, 2, 36, "Input"], Cell[CellGroupData[{ Cell[384398, 8181, 3220, 81, 336, "Input"], Cell[387621, 8264, 121, 2, 36, "Output"], Cell[CellGroupData[{ Cell[387767, 8270, 277, 6, 29, "Print"], Cell[388047, 8278, 277, 6, 29, "Print"], Cell[388327, 8286, 278, 6, 29, "Print"], Cell[388608, 8294, 278, 6, 29, "Print"], Cell[388889, 8302, 279, 6, 29, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[389217, 8314, 15346, 379, 1049, "Input"], Cell[404566, 8695, 38148, 795, 358, "Output"], Cell[442717, 9492, 41357, 869, 374, "Output"], Cell[484077, 10363, 42639, 888, 374, "Output"] }, Open ]], Cell[526731, 11254, 120, 2, 36, "Input"], Cell[526854, 11258, 1531, 45, 106, "Input"], Cell[CellGroupData[{ Cell[528410, 11307, 1657, 39, 106, "Input"], Cell[530070, 11348, 1398, 27, 150, "Output"] }, Open ]] }, Open ]] } ] *)