|
Search: id:A134186
|
|
|
| A134186 |
|
A 3 person 9 X 9 Markov approach to a zero sum game where: Sum[game_value(MAi),{i,1,3}]=0,and two of the games are minimal Pisot vector Markovs and the third is a negative Fibonacci: Characteristic Polynomial: -1 + 3 x^2 + 3 x^3 - 4 x^4 - 5 x^5 + x^6 + 4 x^7 - x^9; MA1={{0,1,0},{,0,0,1},{1,1,0}};Det=1 ;gv=-1/4; MA2={{0,1,1},{1,0,0},{0,1,0}};Det=1;gv=-1/4 MA2={{0,0,1},{0,1,0},{1,0,-1}};Det=-1;gv=1/2. |
|
+0
1
|
|
| 4, 3, 5, 4, 7, 7, 12, 11, 23, 16, 45, 21, 90, 19, 187, -14, 405, -149, 912, -587, 2127, -1882, 5111, -5533, 12578, -15549, 31521, -42574, 80051, -114735, 205238, -306127, 529707, -811536, 1373431, -2142327, 3572244, -5639743, 9311113, -14819542, 24304609, -38893711, 63503588, -101992905
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
score sum Ratio approaches=-(1+Sqrt[5])/2 Score is low positive to the 16th element then starts to alternate. The negative Fibonacci game is being balanced by the two Minimal Pisot games. Roots are: Table[x /. NSolve[CharacteristicPolynomial[M, x] == 0, x][[n]], {n, 1, 9}]; {-1.61803, -0.662359 - 0.56228 I, -0.662359 + 0.56228 I, -0.662359 - 0.56228 I, -0.662359 + 0.56228 I], 0.618034, 1., 1.32472, 1.32472}
|
|
FORMULA
|
M = {{0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 0, -1}}; v[0] = {0, 0, 1, 1, 0, 0, 1, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) = Sum[v[n][[i]],{,i,1,9}].
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1, 0, -1}}; v[0] = {0, 0, 1, 1, 0, 0, 1, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[Apply[Plus, v[n]], {n, 0, 50}]
|
|
CROSSREFS
|
Sequence in context: A074091 A104569 A093619 this_sequence A024688 A024477 A049008
Adjacent sequences: A134183 A134184 A134185 this_sequence A134187 A134188 A134189
|
|
KEYWORD
|
uned,sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 13 2008
|
|
|
Search completed in 0.002 seconds
|
