Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

Re: Map Attractors in Mathematica

  • Subject: [mg3110] Re: Map Attractors in Mathematica
  • From: pnardon at ulb.ac.be (Pasquale Nardone)
  • Date: 2 Feb 1996 04:02:56 -0600
  • Approved: usenet@wri.com
  • Distribution: local
  • Newsgroups: wri.mathgroup
  • Organization: Université Libre de Bruxelles
  • Sender: daemon at wri.com

let's define the first image in 2 dimension:

image[x_,y_]:=any function which define the image,
for example:

image[x_,y_]:=If[(x>0.5)&&(y>0.5),1,0]

define the upper right square as the starting image. Then 
define the recursive image:

g[{x_,y_},n_]:=g[Mod[{x+y,x+2*y},1],n-1];
g[{x_,y_},0]:=image[x,y];

That's all


you get the image by doing (for example the 3 iteration)

DensityPlot[g[{x,y},3],{x,0,1},{y,0,1},
PlotPoints->20];

The difficult point is to choose image[x,y] to get a Cat.
for example a small face could be:
image[x_,y_]=If[((x-0.5)^2+(y-0.5)^2<0.1),1,0]
--------------------------------------------
 Pasquale Nardone                          *
                                           *
 Universiti Libre de Bruxelles             *
 CP 231, Sciences-Physique                 *
 Bld du Triomphe                           *
 1050 Bruxelles, Belgium                   *
 tel: 650,55,15 fax: 650,57,67 (+32,2)     *
        ,,,
       (o o)
----ooO-(_)-Ooo----


  • Prev by Date: Re: Map Attractors in Mathematica
  • Next by Date: Names of MathLink libraries on different Unix platforms
  • Previous by thread: Re: Map Attractors in Mathematica
  • Next by thread: Re: Map Attractors in Mathematica