Re: Hadamard -Sylvester Matrix Self-Similarity by substitution and reparatitioning

*To*: mathgroup at smc.vnet.net*Subject*: [mg69060] Re: Hadamard -Sylvester Matrix Self-Similarity by substitution and reparatitioning*From*: Roger Bagula <rlbagula at sbcglobal.net>*Date*: Tue, 29 Aug 2006 03:25:45 -0400 (EDT)*References*: <ebpkp7$p0l$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Here is a Gray code fractal using Hadamard Sylvester self-similar matrices: c[i_, k_] := Floor[Mod[i/2^k, 2]] b[i_, k_] := If[c[i, k] == 0 && c[ i, k + 1] == 0, 0, If[c[i, k] == 1 && c[i, k + 1] == 1, 0, 1]] n = 64 - 1; a0 = Table[If[Sum[b[i, k]*b[j, k], {k, 0, n}] == 0, 1, 0], {j, 0, n}, {i, 0, n}]; ListDensityPlot[a0, Mesh -> False] > >