|
%I #8 Nov 29 2016 07:58:27
%S 3,6,8,1,3,8,1,3,6,3,6,8,1,6,8,1,3,6,3,6,8,1,6,8,1,3,8,4,5,7,2,4,7,2,
%T 4,5,4,5,7,2,5,7,2,4,5,4,5,7,2,5,7,2,4,7
%N A geometrical graph substitution of a tess-tetrahedron embedded in a cube as an eight-"tone" all-naturals musical scale such that here the connections can be cut to isolate the tetrahedra.
%C There is a definite difference in the music that the isolated tetrahedra gives compared to the connected ones.
%F p=0 such that: 1 -> {p*2, 3, 6, 8} 2 -> {p, 4, 5, 7} 3 -> {1, p*4, 6, 8} 4 -> {2, p*3, 5, 7} 5 -> {2, 4, p*6, 7} 6 -> {1, 3, p*5, 8} 7 -> {2, 4, 5, p*8} 8 -> {1, 3, 6, p*7}
%t s[1] = {3, 6, 8};
%t s[2] = {4, 5, 7};
%t s[3] = {1, 6, 8};
%t s[4] = {2, 5, 7};
%t s[5] = {2, 4, 7};
%t s[6] = {1, 3, 8};
%t s[7] = {2, 4, 5};
%t s[8] = {1, 3, 6};
%t t[a_] := Flatten[s /@ a];
%t p[0] = {1, 2}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]];
%t p[3]
%K nonn,uned
%O 1,1
%A _Roger L. Bagula_, Nov 26 2007
|
