|
|
A098017
|
|
M={{0, 1, -1, 1}, {-1, 0, 1, -1}, {1, -1, 0, 1}, {-1, 1, -1, 0}}; a[n_]:=M.a[n-1]; a[0]:={{0, 1, 1, 2}, {1, 1, 2, 3}, {1, 2, 3, 5}, {2, 3, 5, 8}};
|
|
0
|
|
|
2, 7, 9, 16, 1, 3, 2, 5, 3, 2, 5, 7, 4, 7, 11, 18, 8, 6, 14, 20, 9, 16, 25, 41, 5, 17, 22, 39, 2, 8, 6, 14, 12, 41, 53, 94, 5, 19, 14, 33, 19, 14, 33, 47, 22, 39, 61, 100, 46, 34, 80, 114, 53, 94, 147, 241, 29, 99, 128, 227, 12, 46, 34, 80, 70, 239, 309, 548, 29, 111, 82, 193, 111
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Group sum matrix of an SO(4) type ( so(4)) of matrix group. Used in four-dimensional electromagnetic theory for a scaled field tensor such that: T(energy density) =s*M.s*MatrixPower[M,-1]/4 where s is the field scale constantSqrt[4*c*hbar^2/(3*e^4)].
|
|
LINKS
|
|
|
MATHEMATICA
|
(* SO(4) Determinant one 4 X 4 Markov sequence *) (* by Roger L. Bagula, Sep 09 2004 *) Clear[M, A, x] digits=Floor[21*3/4]; M={{0, 1, -1, 1}, {-1, 0, 1, -1}, {1, -1, 0, 1}, {-1, 1, -1, 0}}; Det[M] A[n_]:=M.A[n-1]; A[0]:={{0, 1, 1, 2}, {1, 1, 2, 3}, {1, 2, 3, 5}, {2, 3, 5, 8}}; (* flattened sequence of 4 X 4 matrices made with an SO(4) Determinant one recurrence*) b=Flatten[Table[M.A[n], {n, 1, digits}]] Floor[Abs[b]] ListPlot[b, PlotJoined->True]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|