fractal based on modular form solution using Fibonacci numbers

Discussion in 'Mathematica' started by Roger Bagula, Mar 10, 2006.

  1. Roger Bagula

    Roger Bagula Guest

    I call it the Fibonacci Modular eye:
    Notebook:
    F[0] = 0; F[1] = 1;
    F[n_] := F[n] = F[n - 1] + F[n - 2]
    a = Table[F[n], {n, 0, 50}];
    xroot[k_, m_, n_] := (Exp[I*2*Pi*k/(2*m)] - a[[n]])/a[[n + 1]] - 1
    aout = Table[Table[Table[{Re[xroot[k, m, n]], Im[xroot[k, m,
    n]]}, {k, 1, 2*m}], {n, 1, m}], {m, 1, 25}];
    b = Flatten[Flatten[aout, 1], 1];
    ListPlot[b, PlotRange -> All]
     
    Roger Bagula, Mar 10, 2006
    #1
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.