Sequences from chemical structures as Hadamard self-similar matrices
- From: Roger Bagula <rlbagula@xxxxxxxxxxxxx>
- Date: Mon, 14 Aug 2006 01:36:10 GMT
I had done Hadamard Pascal's binary triangles ( Sierpinski gasket like)
back in the late 90's, but nothing like this. I got an Hadamard
Grey code fractal by a binary conversion back then.
My work on group theory representations taught me
how to repartition arrays in Mathematica
so that I could do Hadamard self-similarity
in fairly large matrices.
Although they aren't techically a new kind of fractal,
no one before has been able to express chemical sturctures as matrices
like this
as far as I know.
I thought of how to do it last night
and got it working for 2by2's and 3by3's this morning.
This 6by6 gives a crystal like matrix structure for Trigonal prisms. (
triangles like that in a spectral prism)
These matrices appear to be both fractal and tile-like!
Clear[M, v, a, aaa, t]
t[n_, m_] := {{0, 1, 1, 1, 0, 0},
{1, 0, 1, 0, 1, 0},
{1, 1, 0, 0, 0, 1},
{1, 0, 0, 0, 1, 1},
{0, 1, 0, 1, 0, 1},
{0, 0, 1, 1, 1, 0}}[[n, m]]
a = Table[t[n, m]*t[i, j], {n, 1, 6}, {m, 1, 6}, {i, 1, 6}, {j, 1, 6}]
M = Flatten[Table[{Flatten[Table[a[[
n, m]][[1, i]], {n,
1, 6}, {i, 1, 6}]], Flatten[Table[a[[n, m]][[2,
i]], {n, 1, 6}, {i, 1, 6}]], Flatten[Table[a[[
n, m]][[3, i]], {n,
1, 6}, {i, 1, 6}]], Flatten[Table[a[[n, m]][[4,
i]], {n, 1, 6}, {i, 1, 6}]], Flatten[Table[a[[
n, m]][[5, i]], {n,
1, 6}, {i, 1, 6}]], Flatten[Table[a[[n, m]][[6,
i]], {n, 1, 6}, {i, 1, 6}]]}, {m, 1, 6}], 1]
ListDensityPlot[M, Mesh -> False]
v[1] = Table[Fibonacci[n], {n, 0, 35}]
v[n_] := v[n] = M.v[n - 1]
a = Table[v[n][[1]], {n, 1, 50}]
Det[M - x*IdentityMatrix[36]]
Factor[%]
aaa = Table[x /. NSolve[Det[M - x*IdentityMatrix[36]] == 0, x][[n]], {n, 1,
36}]
Abs[aaa]
a1 = Table[N[a[[n]]/a[[n - 1]]], {n, 7, 50}]
.
- Prev by Date: Re: Mappings that create a Sierpinski Gasket with a fractal surface
- Next by Date: Re: Fractal formula of ALPHA
- Previous by thread: Mappings that create a Sierpinski Gasket with a fractal surface
- Next by thread: Re: Fractal formula of ALPHA
- Index(es):