(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 11.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 52127, 1088] NotebookOptionsPosition[ 52690, 1084] NotebookOutlinePosition[ 53130, 1103] CellTagsIndexPosition[ 53087, 1100] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`akumulace$$ = "Bez akumulace", $CellContext`brezen$$ = 0, $CellContext`cerven$$ = 0, $CellContext`cervenec$$ = 0, $CellContext`duben$$ = 0, $CellContext`ilv$$ = 0.00014, $CellContext`kok$$ = 0, $CellContext`kpod$$ = 0, $CellContext`kstr$$ = 0, $CellContext`kveten$$ = 0, $CellContext`kzdi$$ = 0, $CellContext`L$$ = 0, $CellContext`leden$$ = 0, $CellContext`listopad$$ = 0, $CellContext`p1$$ = 0, $CellContext`p2$$ = 0.1, $CellContext`poloha$$ = "\[CapitalCHacek]echy", $CellContext`prosinec$$ = 0, $CellContext`Qztr$$ = 0, $CellContext`rijen$$ = 0, $CellContext`Sok$$ = 0, $CellContext`Spod$$ = 0, $CellContext`srpen$$ = 0, $CellContext`Sstr$$ = 0, $CellContext`Szdi$$ = 0, $CellContext`te$$ = -15, $CellContext`teplotasous$$ = "Teplota nad 60\[Degree]C", $CellContext`tis$$ = 15, $CellContext`typcerpadla$$ = "Vzduch - Voda", $CellContext`unor$$ = 0, $CellContext`vykont$$ = "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", \ $CellContext`zari$$ = 0, $CellContext`\[Epsilon]d$$ = 0.8, $CellContext`\[Epsilon]i$$ = 0.8, $CellContext`\[Epsilon]t$$ = 0.8, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`vykont$$], "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", ""}, { "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", "Pot\[RHacek]ebuji pomoc s v\[YAcute]po\[CHacek]tem"}}, {{ Hold[$CellContext`akumulace$$], "Bez akumulace", "Akumulace"}, { "Bez akumulace", "S akumulac\[IAcute]"}}, {{ Hold[$CellContext`typcerpadla$$], "Vzduch - Voda", "Typ \[CHacek]erpadla:"}, {"Vzduch - Voda", "Zem\[EHacek] - Voda"}}, {{ Hold[$CellContext`teplotasous$$], "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C", "Teplota nad 60\[Degree]C"}}, {{ Hold[$CellContext`teplotasous$$], "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C"}}, {{ Hold[$CellContext`Qztr$$], 0, "Ztr\[AAcute]tov\[YAcute] v\[YAcute]kon objektu (kW):"}}, {{ Hold[$CellContext`poloha$$], "\[CapitalCHacek]echy", "M\[IAcute]sto instalace:"}, { "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", "\[CapitalCHacek]echy", "Morava", "Slezsko"}}, {{ Hold[$CellContext`leden$$], 0, ""}}, {{ Hold[$CellContext`unor$$], 0, ""}}, {{ Hold[$CellContext`brezen$$], 0, ""}}, {{ Hold[$CellContext`duben$$], 0, ""}}, {{ Hold[$CellContext`kveten$$], 0, ""}}, {{ Hold[$CellContext`cerven$$], 0, ""}}, {{ Hold[$CellContext`cervenec$$], 0, ""}}, {{ Hold[$CellContext`srpen$$], 0, ""}}, {{ Hold[$CellContext`zari$$], 0, ""}}, {{ Hold[$CellContext`rijen$$], 0, ""}}, {{ Hold[$CellContext`listopad$$], 0, ""}}, {{ Hold[$CellContext`prosinec$$], 0, ""}}, {{ Hold[$CellContext`te$$], -15, ""}}, { Hold[$CellContext`tis$$], 15, 25}, { Hold[$CellContext`\[Epsilon]i$$], 0.8, 0.9}, { Hold[$CellContext`\[Epsilon]t$$], 0.8, 1}, { Hold[$CellContext`\[Epsilon]d$$], 0.8, 1}, {{ Hold[$CellContext`vykont$$], "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", ""}, { "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", "Pot\[RHacek]ebuji pomoc s v\[YAcute]po\[CHacek]tem"}}, {{ Hold[$CellContext`akumulace$$], "Bez akumulace", "Akumulace"}, { "Bez akumulace", "S akumulac\[IAcute]"}}, {{ Hold[$CellContext`typcerpadla$$], "Vzduch - Voda", "Typ \[CHacek]erpadla:"}, {"Vzduch - Voda", "Zem\[EHacek] - Voda"}}, {{ Hold[$CellContext`teplotasous$$], "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C", "Teplota nad 60\[Degree]C"}}, {{ Hold[$CellContext`teplotasous$$], "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C"}}, {{ Hold[$CellContext`poloha$$], "\[CapitalCHacek]echy", "M\[IAcute]sto instalace:"}, { "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", "\[CapitalCHacek]echy", "Morava", "Slezsko"}}, {{ Hold[$CellContext`leden$$], 0, ""}}, {{ Hold[$CellContext`unor$$], 0, ""}}, {{ Hold[$CellContext`brezen$$], 0, ""}}, {{ Hold[$CellContext`duben$$], 0, ""}}, {{ Hold[$CellContext`kveten$$], 0, ""}}, {{ Hold[$CellContext`cerven$$], 0, ""}}, {{ Hold[$CellContext`cervenec$$], 0, ""}}, {{ Hold[$CellContext`srpen$$], 0, ""}}, {{ Hold[$CellContext`zari$$], 0, ""}}, {{ Hold[$CellContext`rijen$$], 0, ""}}, {{ Hold[$CellContext`listopad$$], 0, ""}}, {{ Hold[$CellContext`prosinec$$], 0, ""}}, {{ Hold[$CellContext`te$$], -15, ""}}, { Hold[$CellContext`tis$$], 15, 25}, { Hold[$CellContext`\[Epsilon]i$$], 0.8, 0.9}, { Hold[$CellContext`\[Epsilon]t$$], 0.8, 1}, { Hold[$CellContext`\[Epsilon]d$$], 0.8, 1}, {{ Hold[$CellContext`kzdi$$], 0, ""}}, {{ Hold[$CellContext`Szdi$$], 0, ""}}, {{ Hold[$CellContext`kok$$], 0, ""}}, {{ Hold[$CellContext`Sok$$], 0, ""}}, {{ Hold[$CellContext`kpod$$], 0, ""}}, {{ Hold[$CellContext`Spod$$], 0, ""}}, {{ Hold[$CellContext`kstr$$], 0, ""}}, {{ Hold[$CellContext`Sstr$$], 0, ""}}, {{ Hold[$CellContext`p1$$], 0, ""}}, {{ Hold[$CellContext`p2$$], 0.1, ""}}, {{ Hold[$CellContext`ilv$$], 0.00014, ""}}, {{ Hold[$CellContext`L$$], 0, ""}}, { Hold[ Dynamic[ If[$CellContext`vykont$$ == "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", Grid[{{ Manipulate`Place[1], Manipulate`Place[2]}, { Manipulate`Place[3], If[$CellContext`typcerpadla$$ == "Vzduch - Voda", Manipulate`Place[4], Manipulate`Place[5]]}, { Manipulate`Place[6]}, { Manipulate`Place[7]}, { If[$CellContext`poloha$$ == "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", Grid[{{ Text[ Row[{"Leden"}]], Manipulate`Place[8], Text[ Row[{"\[CapitalUAcute]nor"}]], Manipulate`Place[9], Text[ Row[{"B\[RHacek]ezen"}]], Manipulate`Place[10]}, { Text[ Row[{"Duben"}]], Manipulate`Place[11], Text[ Row[{"Kv\[EHacek]ten"}]], Manipulate`Place[12], Text[ Row[{"\[CapitalCHacek]erven"}]], Manipulate`Place[13]}, { Text[ Row[{"\[CapitalCHacek]ervenec"}]], Manipulate`Place[14], Text[ Row[{"Srpen"}]], Manipulate`Place[15], Text[ Row[{"Z\[AAcute]\[RHacek]\[IAcute]"}]], Manipulate`Place[16]}, { Text[ Row[{"\[CapitalRHacek]\[IAcute]jen"}]], Manipulate`Place[17], Text[ Row[{"Listopad"}]], Manipulate`Place[18], Text[ Row[{"Prosinec"}]], Manipulate`Place[19]}}, Alignment -> Left]]}, { Text[ Row[{"Venkovn\[IAcute] v\[YAcute]po\[CHacek]tov\[AAcute] \ teplota"}]], Manipulate`Place[20]}, { Text[ Row[{"Pr\[URing]m\[EHacek]rn\[AAcute] vnit\[RHacek]n\[IAcute] v\ \[YAcute]po\[CHacek]tov\[AAcute] teplota"}]], Manipulate`Place[21]}, { Text[ Row[{"Nesou\[CHacek]asnost tepeln\[EAcute] ztr\[AAcute]ty \ infiltrac\[IAcute] a tep. ztr\[AAcute]ty prostupem"}]], Manipulate`Place[22]}, { Text[ Row[{"Sn\[IAcute]\[ZHacek]en\[IAcute] teploty v \ m\[IAcute]stnostech b\[EHacek]hem dne"}]], Manipulate`Place[23]}, { Text[ Row[{"Zkr\[AAcute]cen\[IAcute] doby vyt\[AAcute]p\[EHacek]n\ \[IAcute] u objekt\[URing] s p\[RHacek]est\[AAcute]vkami v provozu"}]], Manipulate`Place[24]}}, Alignment -> Left], Grid[{{ Manipulate`Place[25], Manipulate`Place[26]}, { Manipulate`Place[27], If[$CellContext`typcerpadla$$ == "Vzduch - Voda", Manipulate`Place[28], Manipulate`Place[29]]}, { Manipulate`Place[30]}, { If[$CellContext`poloha$$ == "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", Grid[{{ Text[ Row[{"Leden"}]], Manipulate`Place[31], Text[ Row[{"\[CapitalUAcute]nor"}]], Manipulate`Place[32], Text[ Row[{"B\[RHacek]ezen"}]], Manipulate`Place[33]}, { Text[ Row[{"Duben"}]], Manipulate`Place[34], Text[ Row[{"Kv\[EHacek]ten"}]], Manipulate`Place[35], Text[ Row[{"\[CapitalCHacek]erven"}]], Manipulate`Place[36]}, { Text[ Row[{"\[CapitalCHacek]ervenec"}]], Manipulate`Place[37], Text[ Row[{"Srpen"}]], Manipulate`Place[38], Text[ Row[{"Z\[AAcute]\[RHacek]\[IAcute]"}]], Manipulate`Place[39]}, { Text[ Row[{"\[CapitalRHacek]\[IAcute]jen"}]], Manipulate`Place[40], Text[ Row[{"Listopad"}]], Manipulate`Place[41], Text[ Row[{"Prosinec"}]], Manipulate`Place[42]}}, Alignment -> Left]]}, { Text[ Row[{"Venkovn\[IAcute] v\[YAcute]po\[CHacek]tov\[AAcute] \ teplota"}]], Manipulate`Place[43]}, { Text[ Row[{"Pr\[URing]m\[EHacek]rn\[AAcute] vnit\[RHacek]n\[IAcute] v\ \[YAcute]po\[CHacek]tov\[AAcute] teplota"}]], Manipulate`Place[44]}, { Text[ Row[{"Nesou\[CHacek]asnost tepeln\[EAcute] ztr\[AAcute]ty \ infiltrac\[IAcute] a tep. ztr\[AAcute]ty prostupem"}]], Manipulate`Place[45]}, { Text[ Row[{"Sn\[IAcute]\[ZHacek]en\[IAcute] teploty v \ m\[IAcute]stnostech b\[EHacek]hem dne"}]], Manipulate`Place[46]}, { Text[ Row[{"Zkr\[AAcute]cen\[IAcute] doby vyt\[AAcute]p\[EHacek]n\ \[IAcute] u objekt\[URing] s p\[RHacek]est\[AAcute]vkami v provozu"}]], Manipulate`Place[47]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]zdmi"}]], Manipulate`Place[48], Text[ Row[{"Plocha\[NonBreakingSpace]zd\[IAcute]"}]], Manipulate`Place[49]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]okny"}]], Manipulate`Place[50], Text[ Row[{"Plocha\[NonBreakingSpace]oken"}]], Manipulate`Place[51]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]podlahou"}]], Manipulate`Place[52], Text[ Row[{"Plocha\[NonBreakingSpace]podlahy"}]], Manipulate`Place[53]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]stropy"}]], Manipulate`Place[54], Text[ Row[{"Plocha\[NonBreakingSpace]stropu"}]], Manipulate`Place[55]}, { Text[ Row[{"P\[RHacek]ir\[AAcute]\[ZHacek]ka\[NonBreakingSpace]na\ \[NonBreakingSpace]vyrovn\[AAcute]n\[IAcute]\[NonBreakingSpace]chladn\[YAcute]\ ch\[NonBreakingSpace]st\[EHacek]n"}]], Manipulate`Place[56], Text[ Row[{"P\[RHacek]ir\[AAcute]\[ZHacek]ka\[NonBreakingSpace]na\ \[NonBreakingSpace]sv\[EHacek]tovou\[NonBreakingSpace]stranu"}]], Manipulate`Place[57]}, { Text[ Row[{"Sou\[CHacek]initel\[NonBreakingSpace]pr\[URing]vzdu\ \[SHacek]nosti\[NonBreakingSpace]oken"}]], Manipulate`Place[58], Text[ Row[{"D\[EAcute]lka\[NonBreakingSpace]sp\[AAcute]ry"}]], Manipulate`Place[59]}}, Alignment -> Left]]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {271., {3., 13.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`vykont$3175$$ = False, $CellContext`akumulace$3176$$ = False, $CellContext`typcerpadla$3177$$ = False, $CellContext`teplotasous$3178$$ = 0, $CellContext`poloha$3179$$ = 0, $CellContext`tis$3180$$ = 0, $CellContext`\[Epsilon]i$3181$$ = 0, $CellContext`\[Epsilon]t$3182$$ = 0, $CellContext`\[Epsilon]d$3183$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 2, StandardForm, "Variables" :> {$CellContext`akumulace$$ = "Bez akumulace", $CellContext`brezen$$ = 0, $CellContext`cerven$$ = 0, $CellContext`cervenec$$ = 0, $CellContext`duben$$ = 0, $CellContext`ilv$$ = 0.00014, $CellContext`kok$$ = 0, $CellContext`kpod$$ = 0, $CellContext`kstr$$ = 0, $CellContext`kveten$$ = 0, $CellContext`kzdi$$ = 0, $CellContext`L$$ = 0, $CellContext`leden$$ = 0, $CellContext`listopad$$ = 0, $CellContext`p1$$ = 0, $CellContext`p2$$ = 0.1, $CellContext`poloha$$ = "\[CapitalCHacek]echy", $CellContext`prosinec$$ = 0, $CellContext`Qztr$$ = 0, $CellContext`rijen$$ = 0, $CellContext`Sok$$ = 0, $CellContext`Spod$$ = 0, $CellContext`srpen$$ = 0, $CellContext`Sstr$$ = 0, $CellContext`Szdi$$ = 0, $CellContext`te$$ = -15, $CellContext`teplotasous$$ = "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", \ $CellContext`tis$$ = 15, $CellContext`typcerpadla$$ = "Vzduch - Voda", $CellContext`unor$$ = 0, $CellContext`vykont$$ = "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", \ $CellContext`zari$$ = 0, $CellContext`\[Epsilon]d$$ = 0.8, $CellContext`\[Epsilon]i$$ = 0.8, $CellContext`\[Epsilon]t$$ = 0.8}, "ControllerVariables" :> { Hold[$CellContext`vykont$$, $CellContext`vykont$3175$$, False], Hold[$CellContext`akumulace$$, $CellContext`akumulace$3176$$, False], Hold[$CellContext`typcerpadla$$, $CellContext`typcerpadla$3177$$, False], Hold[$CellContext`teplotasous$$, $CellContext`teplotasous$3178$$, 0], Hold[$CellContext`poloha$$, $CellContext`poloha$3179$$, 0], Hold[$CellContext`tis$$, $CellContext`tis$3180$$, 0], Hold[$CellContext`\[Epsilon]i$$, $CellContext`\[Epsilon]i$3181$$, 0], Hold[$CellContext`\[Epsilon]t$$, $CellContext`\[Epsilon]t$3182$$, 0], Hold[$CellContext`\[Epsilon]d$$, $CellContext`\[Epsilon]d$3183$$, 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" :> If[ Or[$CellContext`Qztr$$ > 0, (($CellContext`kzdi$$ $CellContext`Szdi$$) ($CellContext`tis$$ - \ $CellContext`te$$) + ($CellContext`kok$$ $CellContext`Sok$$) \ ($CellContext`tis$$ - $CellContext`te$$) + ($CellContext`kpod$$ \ $CellContext`Spod$$) ($CellContext`tis$$ - $CellContext`te$$) + \ ($CellContext`kstr$$ $CellContext`Sstr$$) ($CellContext`tis$$ - \ $CellContext`te$$)) ( 1 + $CellContext`p1$$ + $CellContext`p2$$) + $CellContext`ilv$$ \ $CellContext`L$$ > 0], $CellContext`cerpadlovzduchVT = {{-13, 1.04514}, {-12, 1.10478}, {-11, 1.18434}, {-10, 1.26462}, {-9, 1.35402}, {-8, 1.43654}, {-7, 1.52018}, {-6, 1.62694}, {-5, 1.73082}, {-4, 1.82782}, {-3, 1.92394}, {-2, 2.01118}, {-1, 2.09954}, { 0, 2.19702}, {1, 2.31762}, {2, 2.44534}, {3, 2.56618}, { 4, 2.72614}, {5, 2.93122}, {6, 3.12342}, {7, 3.27874}, { 8, 3.45518}, {9, 3.64274}, {10, 3.83142}, {11, 4.05322}, { 12, 4.26414}, {13, 4.45618}, {14, 4.66934}, { 15, 4.88762}}; $CellContext`cerpadlovzduchNT = {{-13, 1.79492}, {-12, 1.91954}, {-11, 1.99324}, {-10, 2.14402}, {-9, 2.25788}, {-8, 2.34082}, {-7, 2.46284}, {-6, 2.58994}, {-5, 2.71412}, {-4, 2.82338}, {-3, 2.96172}, {-2, 3.06514}, {-1, 3.16564}, {0, 3.26722}, {1, 3.39788}, {2, 3.51162}, { 3, 3.61244}, {4, 3.76354}, {5, 4.06932}, {6, 4.26138}, { 7, 4.38852}, {8, 4.58474}, {9, 4.81604}, {10, 5.02242}, { 11, 5.15388}, {12, 5.30842}, {13, 5.43604}, {14, 5.56074}, { 15, 5.70252}}; $CellContext`cerpadlovodaVT = {{-13, 1.903025}, {-12, 1.947225}, {-11, 2.019025}, {-10, 2.070925}, {-9, 2.107925}, {-8, 2.132525}, {-7, 2.157225}, {-6, 2.174525}, {-5, 2.210675}, {-4, 2.244425}, {-3, 2.279525}, {-2, 2.324725}, {-1, 2.370025}, {0, 2.402925}, {1, 2.423425}, {2, 2.462775}, { 3, 2.505225}, {4, 2.547275}, {5, 2.625925}, {6, 2.686675}, { 7, 2.747025}, {8, 2.835975}, {9, 2.895775}, {10, 2.984925}, { 11, 3.019175}, {12, 3.055525}, {13, 3.081975}, {14, 3.114525}, { 15, 3.149175}}; $CellContext`cerpadlovodaNT = {{-13, 3.49971}, {-12, 3.52165}, {-11, 3.54311}, {-10, 3.53975}, {-9, 3.57441}, {-8, 3.57921}, {-7, 3.59041}, {-6, 3.60125}, {-5, 3.63425}, {-4, 3.64765}, {-3, 3.65745}, {-2, 3.66291}, {-1, 3.68025}, {0, 3.70175}, {1, 3.73641}, {2, 3.76971}, { 3, 3.77615}, {4, 3.78375}, {5, 3.79151}, {6, 3.79715}, { 7, 3.80745}, {8, 3.82241}, {9, 3.83875}, {10, 3.85511}, { 11, 3.86441}, {12, 3.88345}, {13, 3.89141}, {14, 3.90425}, { 15, 3.91451}}; $CellContext`qton = {{-13, 2.55}, {-12, 2.6}, {-11, 2.614}, {-10, 2.664}, {-9, 2.744}, {-8, 2.765}, {-7, 2.81}, {-6, 2.858}, {-5, 2.879}, {-4, 2.894}, {-3, 2.908}, {-2, 2.922}, {-1, 2.937}, {0, 2.951}, {1, 2.965}, {2, 3.051}, {3, 3.108}, { 4, 3.265}, {5, 3.43}, {6, 3.58}, {7, 3.773}, {8, 3.816}, { 9, 3.873}, {10, 3.931}, {11, 3.988}, {12, 4.056}, {13, 4.109}, { 14, 4.174}, {15, 4.232}}; Which[$CellContext`poloha$$ != "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", \ $CellContext`leden$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", -0.35, "Morava", -0.7, "Slezsko", -1.74]; $CellContext`unor$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", -0.23, "Morava", -0.2, "Slezsko", -1.41]; $CellContext`brezen$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 3.9, "Morava", 4.1, "Slezsko", 2.47]; $CellContext`duben$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 9.87, "Morava", 10.01, "Slezsko", 8.68]; $CellContext`kveten$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 13.69, "Morava", 14.21, "Slezsko", 12.73]; $CellContext`cerven$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 17.21, "Morava", 18.01, "Slezsko", 16.26]; $CellContext`cervenec$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 19.52, "Morava", 20.22, "Slezsko", 18.72]; $CellContext`srpen$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 18.21, "Morava", 18.81, "Slezsko", 17.45]; $CellContext`zari$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 13.98, "Morava", 14.44, "Slezsko", 13.07]; $CellContext`rijen$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 8.77, "Morava", 9.11, "Slezsko", 8.21]; $CellContext`listopad$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 4.8, "Morava", 4.9, "Slezsko", 4.54]; $CellContext`prosinec$$ = Switch[$CellContext`poloha$$, "\[CapitalCHacek]echy", 0.96, "Morava", 0.41, "Slezsko", -0.05]]; $CellContext`TemperatureData = {{ 0, $CellContext`leden$$}, {1, $CellContext`unor$$}, { 2, $CellContext`brezen$$}, {3, $CellContext`duben$$}, { 4, $CellContext`kveten$$}, {5, $CellContext`cerven$$}, { 6, $CellContext`cervenec$$}, {7, $CellContext`srpen$$}, { 8, $CellContext`zari$$}, {9, $CellContext`rijen$$}, { 10, $CellContext`listopad$$}, {11, $CellContext`prosinec$$}, { 12, $CellContext`leden$$}, { 13, $CellContext`unor$$}}; $CellContext`pomfce[ Pattern[$CellContext`month, Blank[]]] = Interpolation[$CellContext`TemperatureData][$CellContext`month]; \ $CellContext`Temperature[ Pattern[$CellContext`m, Blank[]]] := Condition[ $CellContext`pomfce[$CellContext`m], Inequality[ 1, LessEqual, $CellContext`m, Less, 13]]; $CellContext`Temperature[ Pattern[$CellContext`m, Blank[]]] := Condition[ $CellContext`Temperature[$CellContext`m - 12], $CellContext`m >= 13]; $CellContext`Temperature[ Pattern[$CellContext`m, Blank[]]] := Condition[ $CellContext`Temperature[$CellContext`m + 12], $CellContext`m < 1]; $CellContext`teplsecpom[ Pattern[$CellContext`t, Blank[]]] := $CellContext`Temperature[$CellContext`t/((30.5 24) 3600)]; $CellContext`rok = ((12 30.5) 24) 3600; $CellContext`strhodn = (1/$CellContext`rok) NIntegrate[ $CellContext`teplsecpom[$CellContext`t], {$CellContext`t, 0, $CellContext`rok}]; $CellContext`zadstrhodn = 6.8; $CellContext`teplsec[ Pattern[$CellContext`t, Blank[]]] := $CellContext`teplsecpom[$CellContext`t] - \ $CellContext`strhodn + $CellContext`zadstrhodn; $CellContext`teplztop = 13; $CellContext`castopenipoc = ReplaceAll[$CellContext`t, FindRoot[$CellContext`teplsec[$CellContext`t] == \ $CellContext`teplztop, {$CellContext`t, 2 10^7, 3.5 10^7}]]; $CellContext`castopenikonec = ReplaceAll[$CellContext`t, FindRoot[$CellContext`teplsec[$CellContext`t] == \ $CellContext`teplztop, {$CellContext`t, 4 10^7, 5 10^7}]]; $CellContext`Qztr$$ = If[$CellContext`vykont$$ == "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", \ $CellContext`Qztr$$, (($CellContext`kzdi$$ $CellContext`Szdi$$) \ ($CellContext`tis$$ - $CellContext`te$$) + ($CellContext`kok$$ \ $CellContext`Sok$$) ($CellContext`tis$$ - $CellContext`te$$) + \ ($CellContext`kpod$$ $CellContext`Spod$$) ($CellContext`tis$$ - \ $CellContext`te$$) + ($CellContext`kstr$$ $CellContext`Sstr$$) \ ($CellContext`tis$$ - $CellContext`te$$)) ( 1 + $CellContext`p1$$ + $CellContext`p2$$) + $CellContext`ilv$$ \ $CellContext`L$$]; $CellContext`cerpadlo = Which[ And[$CellContext`teplotasous$$ == "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] \ 35\[Degree]C", $CellContext`typcerpadla$$ == "Vzduch - Voda"], $CellContext`cerpadlovzduchNT, And[$CellContext`teplotasous$$ == "Radi\[AAcute]tory 55\[Degree]C", $CellContext`typcerpadla$$ == "Vzduch - Voda"], $CellContext`cerpadlovzduchVT, And[$CellContext`teplotasous$$ == "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] \ 35\[Degree]C", $CellContext`typcerpadla$$ == "Zem\[EHacek] - Voda"], $CellContext`cerpadlovodaNT, And[$CellContext`teplotasous$$ == "Radi\[AAcute]tory 55\[Degree]C", $CellContext`typcerpadla$$ == "Zem\[EHacek] - Voda"], $CellContext`cerpadlovodaVT, And[$CellContext`teplotasous$$ == "Teplota nad 60\[Degree]C", $CellContext`typcerpadla$$ == "Vzduch - Voda"], $CellContext`qton]; $CellContext`seps[ Pattern[$CellContext`Tex, Blank[]]] = Interpolation[$CellContext`cerpadlo][$CellContext`Tex]; \ $CellContext`AKU = Switch[$CellContext`akumulace$$, "Bez akumulace", 0, "S akumulac\[IAcute]", 1]; $CellContext`ny0 = 1; $CellContext`nyr = 0.98; $CellContext`d = ($CellContext`castopenikonec - \ $CellContext`castopenipoc)/((60 60) 24); $CellContext`eps = ($CellContext`\[Epsilon]i$$ $CellContext`\ \[Epsilon]t$$) $CellContext`\[Epsilon]d$$; $CellContext`Deno = $CellContext`d \ ($CellContext`tis$$ - $CellContext`tes); $CellContext`tes1 = NIntegrate[ $CellContext`teplsec[$CellContext`t], {$CellContext`t, \ $CellContext`castopenipoc, $CellContext`castopenikonec}]; $CellContext`tes = \ $CellContext`tes1/($CellContext`castopenikonec - $CellContext`castopenipoc); \ $CellContext`Qztr1 = If[$CellContext`AKU > 0, $CellContext`Qztr$$ 0.85, $CellContext`Qztr$$]; $CellContext`ztrvyk[ Pattern[$CellContext`Tepl$, Blank[]]] = ($CellContext`eps/($CellContext`ny0 \ $CellContext`nyr)) ((($CellContext`Qztr1/ 3600) ($CellContext`tis$$ - \ $CellContext`Tepl$))/($CellContext`tis$$ - $CellContext`te$$)); \ $CellContext`ztrvyk1[ Pattern[$CellContext`Tepl$, Blank[]]] = ($CellContext`Qztr$$ ($CellContext`tis$$ - \ $CellContext`Tepl$))/($CellContext`tis$$ - $CellContext`te$$); \ $CellContext`teplo = If[$CellContext`Qztr$$ > 0, NIntegrate[ $CellContext`ztrvyk[ $CellContext`teplsec[$CellContext`t]], {$CellContext`t, \ $CellContext`castopenipoc, $CellContext`castopenikonec}], 0]; $CellContext`elenergo = If[$CellContext`Qztr$$ > 0, NIntegrate[$CellContext`ztrvyk[ $CellContext`teplsec[$CellContext`t]]/$CellContext`seps[ $CellContext`teplsec[$CellContext`t]], {$CellContext`t, \ $CellContext`castopenipoc, $CellContext`castopenikonec}, MaxRecursion -> 12], 0]; $CellContext`cena = $CellContext`cenakc $CellContext`elenergo; If[$CellContext`Qztr$$ > 0, $CellContext`COP = $CellContext`teplo/$CellContext`elenergo, \ $CellContext`COP = 0]; Column[{ Grid[{{ Plot[{ $CellContext`teplsec[$CellContext`t], $CellContext`teplztop}, \ {$CellContext`t, 0, (((2 12) 30.5) 24) 3600}, AxesLabel -> {"t(s)", "T(\[Degree]C)"}, PlotLabel -> "Teplota b\[EHacek]hem roku", ImageSize -> {525, 250}, PlotStyle -> {{ Thickness[0.01], RGBColor["Black"]}, { Thickness[0.01], RGBColor["Yellow"]}}], Plot[{ $CellContext`ztrvyk1[$CellContext`tepl]}, {$CellContext`tepl, \ -15, 25}, AxesLabel -> {"T(\[Degree]C)", "Q(kW)"}, PlotLabel -> "Ztr\[AAcute]tov\[YAcute] v\[YAcute]kon v z\[AAcute]vislosti \ na teplot\[EHacek]", ImageSize -> {525, 250}, PlotStyle -> {{ Thickness[0.01], RGBColor["Blue"]}}]}}], Plot[{ $CellContext`ztrvyk1[ $CellContext`teplsec[$CellContext`t]]}, {$CellContext`t, \ $CellContext`castopenipoc, $CellContext`castopenikonec}, AxesLabel -> {"t(s)", "Q(kW)"}, PlotLabel -> "Pr\[URing]b\[EHacek]h v\[YAcute]konov\[EAcute] ztr\[AAcute]ty po \ dobu topn\[EAcute] sez\[OAcute]ny", ImageSize -> {1050, 500}, PlotStyle -> {{ Thickness[0.01], RGBColor["Red"]}}], Text[ Row[{"Doba trv\[AAcute]n\[IAcute] topn\[EAcute] sez\[OAcute]ny", " = ", $CellContext`d, "dn\[URing]"}]], Text[ Row[{"Ro\[CHacek]n\[IAcute] pot\[RHacek]eba tepla objektu", " = ", $CellContext`teplo, " kWh"}]], Text[ Row[{"Ro\[CHacek]n\[IAcute] energetick\[EAcute] po\[ZHacek]adavky \ na vyt\[AAcute]p\[EHacek]n\[IAcute]", " = ", $CellContext`elenergo, " kWh"}]], Text[ Row[{"COP", " = ", $CellContext`COP}]], Which[ And[$CellContext`Qztr1 > 50, $CellContext`teplotasous$$ != "Teplota nad 60\[Degree]C"], Text[ Row[{"Pro vyt\[AAcute]p\[EHacek]n\[IAcute] bude pot\[RHacek]eba \ pou\[ZHacek]\[IAcute]t kask\[AAcute]du tepeln\[YAcute]ch \[CHacek]erpadel. \ Proto\[ZHacek]e byl p\[RHacek]ekro\[CHacek]en maxim\[AAcute]ln\[IAcute] v\ \[YAcute]kon, kter\[YAcute] je schopno dodat 1. tepeln\[EAcute] \ \[CHacek]erpadlo."}]], And[$CellContext`Qztr1 <= 50, $CellContext`teplotasous$$ != "Teplota nad 60\[Degree]C"], Text[ Row[{"Pro vyt\[AAcute]p\[EHacek]n\[IAcute] je pou\[ZHacek]ito \ tepeln\[EAcute] \[CHacek]erpadlo ", Which[ And[$CellContext`Qztr1 < 8, $CellContext`typcerpadla$$ == "Vzduch - Voda"], Text[ Row[{"typu vzduch - voda o v\[YAcute]konu 8 kW. Od spole\ \[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 15, $CellContext`typcerpadla$$ == "Vzduch - Voda"], Text[ Row[{"typu vzduch - voda o v\[YAcute]konu 15 kW. Od spole\ \[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 25, $CellContext`typcerpadla$$ == "Vzduch - Voda"], Text[ Row[{"typu vzduch - voda o v\[YAcute]konu 25 kW. Od spole\ \[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 35, $CellContext`typcerpadla$$ == "Vzduch - Voda"], Text[ Row[{"typu vzduch - voda o v\[YAcute]konu 35 kW. Od spole\ \[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 50, $CellContext`typcerpadla$$ == "Vzduch - Voda"], Text[ Row[{"typu vzduch - voda o v\[YAcute]konu 50 kW. Od spole\ \[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 < 5, $CellContext`typcerpadla$$ == "Zem\[EHacek] - Voda"], Text[ Row[{"typu zem\[EHacek] - voda o v\[YAcute]konu 5 kW. Od \ spole\[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 15, $CellContext`typcerpadla$$ == "Zem\[EHacek] - Voda"], Text[ Row[{"typu zem\[EHacek] - voda o v\[YAcute]konu 15 kW. Od \ spole\[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 33, $CellContext`typcerpadla$$ == "Zem\[EHacek] - Voda"], Text[ Row[{"typu zem\[EHacek] - voda o v\[YAcute]konu 33 kW. Od \ spole\[CHacek]nosti HOTJET s.r.o."}]], And[$CellContext`Qztr1 <= 50, $CellContext`typcerpadla$$ == "Zem\[EHacek] - Voda"], Text[ Row[{"typu zem\[EHacek] - voda o v\[YAcute]konu 50 kW. Od \ spole\[CHacek]nosti HOTJET s.r.o."}]]]}]], And[$CellContext`Qztr1 <= 30, $CellContext`teplotasous$$ == "Teplota nad 60\[Degree]C"], Text[ Row[{"Pro vyt\[AAcute]p\[EHacek]n\[IAcute] je pou\[ZHacek]ito \ tepeln\[EAcute] \[CHacek]erpadlo typu vzduch - voda o v\[YAcute]konu 30 kW \ (Q-Ton). Od spole\[CHacek]nosti Mitsubishi Heavy Industries."}]], And[$CellContext`Qztr1 > 30, $CellContext`teplotasous$$ == "Teplota nad 60\[Degree]C"], Text[ Row[{"Pro vyt\[AAcute]p\[EHacek]n\[IAcute] bude pot\[RHacek]eba \ pou\[ZHacek]\[IAcute]t kask\[AAcute]du tepeln\[YAcute]ch \[CHacek]erpadel. \ Proto\[ZHacek]e byl p\[RHacek]ekro\[CHacek]en maxim\[AAcute]ln\[IAcute] v\ \[YAcute]kon, kter\[YAcute] je schopno dodat 1. tepeln\[EAcute] \ \[CHacek]erpadlo."}]]], Null}], Text[ Row[{ "V\[YAcute]po\[CHacek]et se spust\[IAcute] zad\[AAcute]n\[IAcute]m \ ztr\[AAcute]tov\[EAcute]ho v\[YAcute]konu."}]]], "Specifications" :> {{{$CellContext`vykont$$, "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", ""}, { "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", "Pot\[RHacek]ebuji pomoc s v\[YAcute]po\[CHacek]tem"}, ControlPlacement -> 1}, {{$CellContext`akumulace$$, "Bez akumulace", "Akumulace"}, { "Bez akumulace", "S akumulac\[IAcute]"}, ControlType -> Checkbox, ControlPlacement -> 2}, {{$CellContext`typcerpadla$$, "Vzduch - Voda", "Typ \[CHacek]erpadla:"}, {"Vzduch - Voda", "Zem\[EHacek] - Voda"}, ControlPlacement -> 3}, {{$CellContext`teplotasous$$, "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C", "Teplota nad 60\[Degree]C"}, ControlPlacement -> 4}, {{$CellContext`teplotasous$$, "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C"}, ControlPlacement -> 5}, {{$CellContext`Qztr$$, 0, "Ztr\[AAcute]tov\[YAcute] v\[YAcute]kon objektu (kW):"}, ControlType -> InputField, ControlPlacement -> 6}, {{$CellContext`poloha$$, "\[CapitalCHacek]echy", "M\[IAcute]sto instalace:"}, { "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", "\[CapitalCHacek]echy", "Morava", "Slezsko"}, ControlPlacement -> 7}, {{$CellContext`leden$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 8}, {{$CellContext`unor$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 9}, {{$CellContext`brezen$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 10}, {{$CellContext`duben$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 11}, {{$CellContext`kveten$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 12}, {{$CellContext`cerven$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 13}, {{$CellContext`cervenec$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 14}, {{$CellContext`srpen$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 15}, {{$CellContext`zari$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 16}, {{$CellContext`rijen$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 17}, {{$CellContext`listopad$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 18}, {{$CellContext`prosinec$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 19}, {{$CellContext`te$$, -15, ""}, ControlType -> InputField, ControlPlacement -> 20}, {$CellContext`tis$$, 15, 25, Appearance -> "Labeled", ControlPlacement -> 21}, {$CellContext`\[Epsilon]i$$, 0.8, 0.9, Appearance -> "Labeled", ControlPlacement -> 22}, {$CellContext`\[Epsilon]t$$, 0.8, 1, Appearance -> "Labeled", ControlPlacement -> 23}, {$CellContext`\[Epsilon]d$$, 0.8, 1, Appearance -> "Labeled", ControlPlacement -> 24}, {{$CellContext`vykont$$, "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", ""}, { "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", "Pot\[RHacek]ebuji pomoc s v\[YAcute]po\[CHacek]tem"}, ControlPlacement -> 25}, {{$CellContext`akumulace$$, "Bez akumulace", "Akumulace"}, { "Bez akumulace", "S akumulac\[IAcute]"}, ControlType -> Checkbox, ControlPlacement -> 26}, {{$CellContext`typcerpadla$$, "Vzduch - Voda", "Typ \[CHacek]erpadla:"}, {"Vzduch - Voda", "Zem\[EHacek] - Voda"}, ControlPlacement -> 27}, {{$CellContext`teplotasous$$, "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C", "Teplota nad 60\[Degree]C"}, ControlPlacement -> 28}, {{$CellContext`teplotasous$$, "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Teplota v otopn\[EAcute] soustav\[EHacek]:"}, { "Podlahov\[EAcute] vyt\[AAcute]p\[EHacek]n\[IAcute] 35\[Degree]C", "Radi\[AAcute]tory 55\[Degree]C"}, ControlPlacement -> 29}, {{$CellContext`poloha$$, "\[CapitalCHacek]echy", "M\[IAcute]sto instalace:"}, { "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", "\[CapitalCHacek]echy", "Morava", "Slezsko"}, ControlPlacement -> 30}, {{$CellContext`leden$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 31}, {{$CellContext`unor$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 32}, {{$CellContext`brezen$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 33}, {{$CellContext`duben$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 34}, {{$CellContext`kveten$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 35}, {{$CellContext`cerven$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 36}, {{$CellContext`cervenec$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 37}, {{$CellContext`srpen$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 38}, {{$CellContext`zari$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 39}, {{$CellContext`rijen$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 40}, {{$CellContext`listopad$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 41}, {{$CellContext`prosinec$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 42}, {{$CellContext`te$$, -15, ""}, ControlType -> InputField, ControlPlacement -> 43}, {$CellContext`tis$$, 15, 25, Appearance -> "Labeled", ControlPlacement -> 44}, {$CellContext`\[Epsilon]i$$, 0.8, 0.9, Appearance -> "Labeled", ControlPlacement -> 45}, {$CellContext`\[Epsilon]t$$, 0.8, 1, Appearance -> "Labeled", ControlPlacement -> 46}, {$CellContext`\[Epsilon]d$$, 0.8, 1, Appearance -> "Labeled", ControlPlacement -> 47}, {{$CellContext`kzdi$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 48}, {{$CellContext`Szdi$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 49}, {{$CellContext`kok$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 50}, {{$CellContext`Sok$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 51}, {{$CellContext`kpod$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 52}, {{$CellContext`Spod$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 53}, {{$CellContext`kstr$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 54}, {{$CellContext`Sstr$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 55}, {{$CellContext`p1$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 56}, {{$CellContext`p2$$, 0.1, ""}, ControlType -> InputField, ControlPlacement -> 57}, {{$CellContext`ilv$$, 0.00014, ""}, ControlType -> InputField, ControlPlacement -> 58}, {{$CellContext`L$$, 0, ""}, ControlType -> InputField, ControlPlacement -> 59}, Dynamic[ If[$CellContext`vykont$$ == "Zn\[AAcute]m ztr\[AAcute]tov\[YAcute] v\[YAcute]kon", Grid[{{ Manipulate`Place[1], Manipulate`Place[2]}, { Manipulate`Place[3], If[$CellContext`typcerpadla$$ == "Vzduch - Voda", Manipulate`Place[4], Manipulate`Place[5]]}, { Manipulate`Place[6]}, { Manipulate`Place[7]}, { If[$CellContext`poloha$$ == "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", Grid[{{ Text[ Row[{"Leden"}]], Manipulate`Place[8], Text[ Row[{"\[CapitalUAcute]nor"}]], Manipulate`Place[9], Text[ Row[{"B\[RHacek]ezen"}]], Manipulate`Place[10]}, { Text[ Row[{"Duben"}]], Manipulate`Place[11], Text[ Row[{"Kv\[EHacek]ten"}]], Manipulate`Place[12], Text[ Row[{"\[CapitalCHacek]erven"}]], Manipulate`Place[13]}, { Text[ Row[{"\[CapitalCHacek]ervenec"}]], Manipulate`Place[14], Text[ Row[{"Srpen"}]], Manipulate`Place[15], Text[ Row[{"Z\[AAcute]\[RHacek]\[IAcute]"}]], Manipulate`Place[16]}, { Text[ Row[{"\[CapitalRHacek]\[IAcute]jen"}]], Manipulate`Place[17], Text[ Row[{"Listopad"}]], Manipulate`Place[18], Text[ Row[{"Prosinec"}]], Manipulate`Place[19]}}, Alignment -> Left]]}, { Text[ Row[{"Venkovn\[IAcute] v\[YAcute]po\[CHacek]tov\[AAcute] \ teplota"}]], Manipulate`Place[20]}, { Text[ Row[{"Pr\[URing]m\[EHacek]rn\[AAcute] vnit\[RHacek]n\[IAcute] v\ \[YAcute]po\[CHacek]tov\[AAcute] teplota"}]], Manipulate`Place[21]}, { Text[ Row[{"Nesou\[CHacek]asnost tepeln\[EAcute] ztr\[AAcute]ty \ infiltrac\[IAcute] a tep. ztr\[AAcute]ty prostupem"}]], Manipulate`Place[22]}, { Text[ Row[{"Sn\[IAcute]\[ZHacek]en\[IAcute] teploty v \ m\[IAcute]stnostech b\[EHacek]hem dne"}]], Manipulate`Place[23]}, { Text[ Row[{"Zkr\[AAcute]cen\[IAcute] doby vyt\[AAcute]p\[EHacek]n\ \[IAcute] u objekt\[URing] s p\[RHacek]est\[AAcute]vkami v provozu"}]], Manipulate`Place[24]}}, Alignment -> Left], Grid[{{ Manipulate`Place[25], Manipulate`Place[26]}, { Manipulate`Place[27], If[$CellContext`typcerpadla$$ == "Vzduch - Voda", Manipulate`Place[28], Manipulate`Place[29]]}, { Manipulate`Place[30]}, { If[$CellContext`poloha$$ == "Ru\[CHacek]n\[IAcute] zad\[AAcute]n\[IAcute]", Grid[{{ Text[ Row[{"Leden"}]], Manipulate`Place[31], Text[ Row[{"\[CapitalUAcute]nor"}]], Manipulate`Place[32], Text[ Row[{"B\[RHacek]ezen"}]], Manipulate`Place[33]}, { Text[ Row[{"Duben"}]], Manipulate`Place[34], Text[ Row[{"Kv\[EHacek]ten"}]], Manipulate`Place[35], Text[ Row[{"\[CapitalCHacek]erven"}]], Manipulate`Place[36]}, { Text[ Row[{"\[CapitalCHacek]ervenec"}]], Manipulate`Place[37], Text[ Row[{"Srpen"}]], Manipulate`Place[38], Text[ Row[{"Z\[AAcute]\[RHacek]\[IAcute]"}]], Manipulate`Place[39]}, { Text[ Row[{"\[CapitalRHacek]\[IAcute]jen"}]], Manipulate`Place[40], Text[ Row[{"Listopad"}]], Manipulate`Place[41], Text[ Row[{"Prosinec"}]], Manipulate`Place[42]}}, Alignment -> Left]]}, { Text[ Row[{"Venkovn\[IAcute] v\[YAcute]po\[CHacek]tov\[AAcute] \ teplota"}]], Manipulate`Place[43]}, { Text[ Row[{"Pr\[URing]m\[EHacek]rn\[AAcute] vnit\[RHacek]n\[IAcute] v\ \[YAcute]po\[CHacek]tov\[AAcute] teplota"}]], Manipulate`Place[44]}, { Text[ Row[{"Nesou\[CHacek]asnost tepeln\[EAcute] ztr\[AAcute]ty \ infiltrac\[IAcute] a tep. ztr\[AAcute]ty prostupem"}]], Manipulate`Place[45]}, { Text[ Row[{"Sn\[IAcute]\[ZHacek]en\[IAcute] teploty v \ m\[IAcute]stnostech b\[EHacek]hem dne"}]], Manipulate`Place[46]}, { Text[ Row[{"Zkr\[AAcute]cen\[IAcute] doby vyt\[AAcute]p\[EHacek]n\ \[IAcute] u objekt\[URing] s p\[RHacek]est\[AAcute]vkami v provozu"}]], Manipulate`Place[47]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]zdmi"}]], Manipulate`Place[48], Text[ Row[{"Plocha\[NonBreakingSpace]zd\[IAcute]"}]], Manipulate`Place[49]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]okny"}]], Manipulate`Place[50], Text[ Row[{"Plocha\[NonBreakingSpace]oken"}]], Manipulate`Place[51]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]podlahou"}]], Manipulate`Place[52], Text[ Row[{"Plocha\[NonBreakingSpace]podlahy"}]], Manipulate`Place[53]}, { Text[ Row[{"Koeficient\[NonBreakingSpace]prostupu\[NonBreakingSpace]\ tepla\[NonBreakingSpace]stropy"}]], Manipulate`Place[54], Text[ Row[{"Plocha\[NonBreakingSpace]stropu"}]], Manipulate`Place[55]}, { Text[ Row[{"P\[RHacek]ir\[AAcute]\[ZHacek]ka\[NonBreakingSpace]na\ \[NonBreakingSpace]vyrovn\[AAcute]n\[IAcute]\[NonBreakingSpace]chladn\[YAcute]\ ch\[NonBreakingSpace]st\[EHacek]n"}]], Manipulate`Place[56], Text[ Row[{"P\[RHacek]ir\[AAcute]\[ZHacek]ka\[NonBreakingSpace]na\ \[NonBreakingSpace]sv\[EHacek]tovou\[NonBreakingSpace]stranu"}]], Manipulate`Place[57]}, { Text[ Row[{"Sou\[CHacek]initel\[NonBreakingSpace]pr\[URing]vzdu\ \[SHacek]nosti\[NonBreakingSpace]oken"}]], Manipulate`Place[58], Text[ Row[{"D\[EAcute]lka\[NonBreakingSpace]sp\[AAcute]ry"}]], Manipulate`Place[59]}}, Alignment -> Left]]]}, "Options" :> { TrackedSymbols :> {$CellContext`Qztr$$, $CellContext`poloha$$, \ $CellContext`typcerpadla$$, $CellContext`leden$$, $CellContext`unor$$, \ $CellContext`brezen$$, $CellContext`duben$$, $CellContext`kveten$$, \ $CellContext`cerven$$, $CellContext`cervenec$$, $CellContext`srpen$$, \ $CellContext`zari$$, $CellContext`rijen$$, $CellContext`listopad$$, \ $CellContext`prosinec$$, $CellContext`akumulace$$, $CellContext`tis$$, \ $CellContext`\[Epsilon]d$$, $CellContext`\[Epsilon]t$$, $CellContext`\ \[Epsilon]i$$, $CellContext`te$$, $CellContext`Szdi$$, $CellContext`Spod$$, \ $CellContext`Sok$$, $CellContext`Sstr$$, $CellContext`p1$$, \ $CellContext`p2$$, $CellContext`kok$$, $CellContext`kzdi$$, \ $CellContext`kpod$$, $CellContext`kstr$$, $CellContext`ilv$$, \ $CellContext`L$$, $CellContext`teplotasous$$}}, "DefaultOptions" :> {}], ImageSizeCache->{1050., {197., 203.}}, 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"] }, WindowSize->{1920, 976}, Visible->True, ScrollingOptions->{"VerticalScrollRange"->Fit}, ShowCellBracket->Automatic, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1464, 33, 51222, 1049, 417, "Output"] } ] *) (* End of internal cache information *) (* NotebookSignature cvD2mX6CuXr2#A1hUibCNphA *)