Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Two new types of chaotic sequence
0 views
Skip to first unread message
Roger Bagula
Jun 29, 2008, 1:20:32 PM6/29/08
to
http://www.geocities.com/rlbagulatftn/chaotic_steptonoise.gif
Two new types of chaotic sequence plotted against each other.
Two new types of chaotic sequence plotted against each other.
Mathematica:
Clear[a, f, b, c, g]
(* fractal noise chaotic sequence*)
f[0] = 1; f[1] = 0; f[1] = 1;
f[n_] := f[n] = f[n - f[n - 1]] + f[Floor[2*n/3]]
(* Cantor like fractal stair step chaotic sequence*)
g[0] = 1; g[1] = 0; g[1] = 1;
g[n_] := g[n] = g[Floor[2*n/3]] + g[Floor[n/3]]
ListPlot[Table[{f[n], g[n]}, {n, 0, 200}], PlotJoined -> True]
0 new messages