(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 9098, 215] NotebookOptionsPosition[ 8629, 194] NotebookOutlinePosition[ 8979, 209] CellTagsIndexPosition[ 8936, 206] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Rast son\[CHacek]nic", "Title", CellChangeTimes->{{3.495955487185855*^9, 3.49595549126398*^9}, { 3.6221315446240425`*^9, 3.622131562501674*^9}, {3.62213159415413*^9, 3.6221316057605505`*^9}, {3.6223922765253525`*^9, 3.6223923368214407`*^9}, { 3.6224751893442187`*^9, 3.6224751911382217`*^9}, {3.6262796477071543`*^9, 3.6262796578997374`*^9}, {3.7176676218055706`*^9, 3.7176676336051917`*^9}}], Cell["\<\ Iskanje parametrov a0 in h* tako, da se bo izra\[CHacek]unana \ logisti\[CHacek]na krivulja \[CHacek]im bolj pribli\[ZHacek]ala izmerjenim \ vrednostim\ \>", "Text", CellChangeTimes->{{3.5612733558399153`*^9, 3.561273379775017*^9}, { 3.622474985607861*^9, 3.622475047259169*^9}, {3.6224764642096577`*^9, 3.6224764678132644`*^9}, {3.6262796677052984`*^9, 3.6262796987640743`*^9}, { 3.6262797480618944`*^9, 3.6262798321207023`*^9}, {3.6262799847424316`*^9, 3.6262799906817713`*^9}, {3.6545310966570396`*^9, 3.6545311232862864`*^9}, { 3.654531656776024*^9, 3.6545316589444275`*^9}, {3.686384402345075*^9, 3.6863844493479576`*^9}, {3.6863845541021414`*^9, 3.6863845757861795`*^9}, { 3.6863846081250367`*^9, 3.6863846429754977`*^9}, {3.686384724516841*^9, 3.6863847925017605`*^9}, {3.686384825277418*^9, 3.6863849017487526`*^9}, { 3.6863849736024785`*^9, 3.6863851044087086`*^9}, {3.7176676374271984`*^9, 3.7176677048661165`*^9}}, Background->RGBColor[0.94, 0.91, 0.88]], Cell[BoxData[ RowBox[{ RowBox[{"h0", "=", "18.0"}], ";", " ", RowBox[{"Tn", "=", "15.0"}], ";"}]], "Input", CellChangeTimes->{{3.6863843206009316`*^9, 3.6863843329093533`*^9}, 3.6863843659346113`*^9, {3.686384648856708*^9, 3.6863847038000045`*^9}, { 3.6863848004889746`*^9, 3.6863848034217796`*^9}, {3.6863849155235767`*^9, 3.686384922730789*^9}, 3.686385010886544*^9, {3.6863851337055597`*^9, 3.6863851339707603`*^9}, {3.717662706612137*^9, 3.717662714521351*^9}, { 3.7176628284171505`*^9, 3.7176628790548396`*^9}, {3.7176629885514317`*^9, 3.717662996398246*^9}, {3.7176630394075212`*^9, 3.7176630861920033`*^9}, { 3.7176643191081696`*^9, 3.7176643216041737`*^9}, {3.7176665566980996`*^9, 3.717666559396904*^9}, {3.7176667341484113`*^9, 3.717666742198025*^9}, { 3.717667613397156*^9, 3.717667614083557*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"hn", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"hn", "/", "h0"}], "-", "1"}], ")"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "a0"}], "*", "t"}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "Tn"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"\[CHacek]as", " ", "[", "teden", "]"}], ")"}], ",", RowBox[{"(", "\"\\"", ")"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "90"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "130"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "170"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "203"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "225"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "239"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "247"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "251"}], "}"}]}], "}"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a0", ",", "0.59", ",", "\"\\""}], "}"}], ",", " ", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"hn", ",", "244", ",", "\"\\""}], "}"}], ",", " ", "230", ",", "300"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.717666297909245*^9, 3.717666326410495*^9}, 3.71766640353703*^9, 3.7176664408834963`*^9, {3.7176664844387727`*^9, 3.7176664960451927`*^9}, {3.717666538040467*^9, 3.7176665819077435`*^9}, { 3.717666639534245*^9, 3.717666713166374*^9}, {3.7176667685776715`*^9, 3.717666846094208*^9}, {3.717667043091354*^9, 3.717667052919371*^9}, { 3.717667098409051*^9, 3.7176671003902545`*^9}, 3.71766730830742*^9, { 3.7176674481304655`*^9, 3.7176674678020997`*^9}, {3.7176675113105764`*^9, 3.7176675229481964`*^9}, {3.7176675554430532`*^9, 3.717667570949481*^9}, { 3.717667716394537*^9, 3.717667722852948*^9}, {3.7176678135203075`*^9, 3.7176679403329306`*^9}, {3.7176683622044716`*^9, 3.717668419378572*^9}, { 3.7176684690958595`*^9, 3.71766848692669*^9}, {3.717668572446041*^9, 3.7176686215861273`*^9}, {3.717668824870084*^9, 3.7176688271008883`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a0$$ = 0.59, $CellContext`hn$$ = 244, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a0$$], 0.59, "Zacetni koef.rasti a0"}, 0, 2}, {{ Hold[$CellContext`hn$$], 244, "Velikost ob koncu rasti h*"}, 230, 300}}, Typeset`size$$ = {700., {204., 208.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a0$85883$$ = 0, $CellContext`hn$85884$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a0$$ = 0.59, $CellContext`hn$$ = 244}, "ControllerVariables" :> { Hold[$CellContext`a0$$, $CellContext`a0$85883$$, 0], Hold[$CellContext`hn$$, $CellContext`hn$85884$$, 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" :> Show[ Plot[$CellContext`hn$$/( 1 + ($CellContext`hn$$/$CellContext`h0 - 1) Exp[(-$CellContext`a0$$) $CellContext`t]), {$CellContext`t, 0, $CellContext`Tn}, AxesLabel -> { $CellContext`\[CHacek]as[$CellContext`teden], "h [cm]"}, ImageSize -> Full], ListPlot[{{0, 18}, {1, 33}, {2, 56}, {3, 90}, {4, 130}, {5, 170}, {6, 203}, {7, 225}, {8, 239}, {9, 247}, {10, 251}}]], "Specifications" :> {{{$CellContext`a0$$, 0.59, "Zacetni koef.rasti a0"}, 0, 2}, {{$CellContext`hn$$, 244, "Velikost ob koncu rasti h*"}, 230, 300}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{747., {261., 268.}}, 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.7176675134477797`*^9, 3.7176675247109995`*^9}, 3.717667573788686*^9, 3.7176677336013675`*^9, 3.717667943515336*^9, { 3.7176684100965557`*^9, 3.717668430189391*^9}, {3.717668472995866*^9, 3.7176684885646935`*^9}, {3.7176685809012556`*^9, 3.7176685895280704`*^9}, 3.7176686287153397`*^9, 3.7176688309384947`*^9}] }, Open ]] }, Open ]] }, WindowSize->{875, 722}, WindowMargins->{{-1903, Automatic}, {Automatic, -426}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 409, 5, 101, "Title"], Cell[992, 29, 1002, 16, 46, "Text"], Cell[1997, 47, 847, 13, 31, "Input"], Cell[CellGroupData[{ Cell[2869, 64, 3042, 74, 172, "Input"], Cell[5914, 140, 2687, 50, 546, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)