Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Akiyama-Thurston [1,5] minimal Pisot tile

  • To: mathgroup at
  • Subject: [mg52122] Akiyama-Thurston [1,5] minimal Pisot tile
  • From: Roger Bagula <tftn at>
  • Date: Thu, 11 Nov 2004 04:52:43 -0500 (EST)
  • Reply-to: tftn at
  • Sender: owner-wri-mathgroup at

This tile was proposed by Dr. Thurston in one of his lectures,
but only actually found by Dr. Akiyama.
The IFS form was found by S. R. Hinsley.
(*Akiyama-Thurston [1,5] minimal Pisot tile*)
(* Wellin IFS program type*)
(* Akiyama_Hinsley*)
f1[{x_,y_}] = {x*c-s*y+c, s*x+c*y+s};
f2[{x_,y_}] = {x*c1-s1*y+c1, s1*x+c1*y+s1};
f[x_] := Which[(r=Random[]) <= 3/4, f1[x],
   r <= 1.00, f2[x]]
a=NestList[f, {0,0}, 10000];
Respectfully, Roger L. Bagula
tftn at, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
alternative email: rlbtftn at

  • Prev by Date: Re: First question
  • Next by Date: Re: Two y-axes in one graph
  • Previous by thread: Re: List plotting a vector field containing invalid data
  • Next by thread: again: nonlinear fit...