MathGroup Archive 2007

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

Search the Archive

generalized 2d IFS for D_n Cartan group using MathWorld DihedralGroupMatrices

This affine IFS uses the DihedralGroupMatrices[]
to set up a general IFS with  Moran similarity dimension 2
based on D_n Cartan groups( same as SO(2*n) special orthogonal
groups): n0 is the group level.
These just get two complex too fast after n0=3!
Too much overlap results.
Clear[f, dlst, pt, cr, ptlst, M, r, p, rotate]
n0 = 3;
dlst = Table[ Random[Integer, {1, 2*n0}], {n, 25000}];
<< MathWorld`Groups`
M = DihedralGroupMatrices[n0];
Table[Det[M[[n]]], {n, 1, 2*n0}]
in = N[Table[{M[[n]][[1, 1]], M[[n]][[1, 2]]}, {n, 1, 2*n0}]]
f[j_, {x_, y_}] := M[[j]]. {x, y}/Sqrt[2*n0] + in[[j]]

pt = {0.5, 0.5};

cr[n_] := Flatten[Table[If[i ==
   j == k == 1, {}, RGBColor[i, j, k]], {i,
    0, 1}, {j, 0, 1}, {k, 0, 1}]][[1 + Mod[n, 7]]];
ptlst[n_] := Table[{cr[dlst[[j]]], Point[pt = f[dlst[[j]], Sequence[pt]]]},
   {j, Length[dlst]}];

Show[Graphics[Join[{PointSize[.001]}, ptlst[
          n]]], AspectRatio -> Automatic, PlotRange -> All]

  • Prev by Date: Re: What determines what is assigned to Out[]?
  • Next by Date: Re: Manipulating current read position in a binary file
  • Previous by thread: Re: Is there a way to rewrite Roots[#n] result in easier to read form?
  • Next by thread: Re: generalized 2d IFS for D_n Cartan group using MathWorld