Rast sončnic

Iskanje parametrov a0 in h* tako, da se bo izračunana logistična krivulja čim bolj približala izmerjenim vrednostim

h0=18.0; Tn=15.0;

Manipulate[Show[Plot[hn/(1+(hn/h0-1)*Exp[-a0*t]),{t,0,Tn},AxesLabel->{(čas [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}}]],
{{a0,0.59,"Zacetni koef.rasti a0"}, 0,2},{{hn,244,"Velikost ob koncu rasti h*"}, 230,300}
]