OFFSET
0,5
COMMENTS
Constants L=200 and A=199 adjust how fast and high the plateau is reached. This type of model is more realistic than the Fibonacci rabbits, but basically starts out with the same kind of variance.
FORMULA
f[n]=L/(1+A/(f[n-1]+f[n-2))) a(n) = Floor[f(n))
MATHEMATICA
lear[f, M, v] f[0] = 0; f[1] = 1; f[n_] := f[n] = N[200/(1 + 199/(f[n - 1] + f[n - 2]))] Table[Abs[Floor[f[n]]], {n, 0, 25}] ListPlot[%, PlotJoined -> True, PlotRange -> All]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Apr 10 2006
STATUS
approved