MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re:chaos-to -order transform


Roberto,

The following Mathematica code will display the sequence of points in
a list of graphic objects which can be then animated using the
"animated selected graphics: under the Cell menu.


myiterator[x0_, y0_] := Module[{T, mylist}, T = {{2 Cos[t], Cos[t] -
Sin[t]},
         {Cos[t] + Sin[t], Cos[t]}} ;
    mylist := NestList[(Mod[T.{#[[1]], #[[2]]}, 1]) &, {x0, y0}, 200];
    Table[
      ListPlot[mylist, Frame -> True, Axes -> False, AspectRatio -> 1,

        Epilog -> {PointSize[0.04], RGBColor[0, 0, 1], Point[{x0,
y0}]}], {t, 
        0, \[Pi]/2, .02}]]

myiterator[.4, .7]

The seed is colored blue.

Hope this helps you get started

Cheers,
Brian



  • Prev by Date: Re: page breaks ?
  • Next by Date: Re:avoiding neg values in NDSolve
  • Previous by thread: Re: chaos-to -order transform
  • Next by thread: Re:chaos-to -order transform