|
Search: id:A116559
|
|
|
| A116559 |
|
Sequentually switched Markov of six 2 X 2 matrices based on the SL[2,2] group of Blyth and Robinson that gives a chaotic vector output. |
|
+0
1
|
|
| 0, 1, 1, 2, 2, 5, 5, 3, 8, 11, 11, 30, 30, 19, 49, 68, 68, 185, 185, 117, 302, 419, 419, 1140, 1140, 721, 1861, 2582, 2582, 7025, 7025, 4443, 11468, 15911, 15911, 43290, 43290
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
REFERENCES
|
Blyth and Robonson,Essential Student Algebra, V5,Groups,J.W. Arrowsmith, Bristol,1986, page 9
|
|
FORMULA
|
M1 = {{1, 0}, {0, 1}}; M2 = {{0, 1}, {1, 1}}; M3 = {{1, 1}, {1, 0}}; M4 = {{1, 0}, {1, 1}}; M5 = {{1, 1}, {0, 1}}; M6 = {{0, 1}, {1, 0}}; M[n_] = If[Mod[n, 6] == 0, M1, If[Mod[n, 6] == 1, M2, If[Mod[n, 6] == 3, M3, If[Mod[n, 6] == 4, M4, If[Mod[n, 6] == 5, M5, M6]]]]]; v[0] = {0, 1}; v[n_] := v[n] = M[n].v[n - 1] a(n) =v[n][[[1]]
|
|
MATHEMATICA
|
M1 = {{1, 0}, {0, 1}}; M2 = {{0, 1}, {1, 1}}; M3 = {{1, 1}, {1, 0}}; M4 = {{1, 0}, {1, 1}}; M5 = {{1, 1}, {0, 1}}; M6 = {{0, 1}, {1, 0}}; M[n_] = If[Mod[n, 6] == 0, M1, If[Mod[n, 6] == 1, M2, If[Mod[n, 6] == 3, M3, If[Mod[n, 6] == 4, M4, If[Mod[n, 6] == 5, M5, M6]]]]]; v[0] = {0, 1}; v[n_] := v[n] = M[n].v[n - 1] a = Table[Abs[v[n][[1]]], {n, 0, 36}]
|
|
CROSSREFS
|
Sequence in context: A054079 A005177 A045537 this_sequence A008280 A063960 A025510
Adjacent sequences: A116556 A116557 A116558 this_sequence A116560 A116561 A116562
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 17 2006
|
|
|
Search completed in 0.002 seconds
|
