Return to Answer

For a world with more symmetries.

Source Link

edited Mar 26, 2016 at 1:39

user31159

myMatrix[d_] := With[
     {c = (1/(Sqrt[2 # - 3] Sqrt[2 # - 1])) & /@ Range[2, d]},
     SparseArray[{
        {1, 1} -> 1, 
        Band[{1, 2}] -> c, 
        Band[{2, 1}] -> -c
        }, {d, d}]
];

myMatrix[5] // MatrixForm

myMatrix[d_] := With[
     {c = (1/(Sqrt[2 # - 3] Sqrt[2 # - 1])) & /@ Range[2, d]},
     SparseArray[{{1, 1} -> 1, Band[{1, 2}] -> c, Band[{2, 1}] -> -c}, {d, d}]
];

myMatrix[5] // MatrixForm

myMatrix[d_] := With[{c = (1/(Sqrt[2 # - 3] Sqrt[2 # - 1])) & /@ Range[2, d]},
     SparseArray[{
        {1, 1} -> 1, 
        Band[{1, 2}] -> c, 
        Band[{2, 1}] -> -c
        }, {d, d}]
];

myMatrix[5] // MatrixForm

Source Link

created Mar 25, 2016 at 21:35

user31159

myMatrix[d_] := With[
     {c = (1/(Sqrt[2 # - 3] Sqrt[2 # - 1])) & /@ Range[2, d]},
     SparseArray[{{1, 1} -> 1, Band[{1, 2}] -> c, Band[{2, 1}] -> -c}, {d, d}]
];

myMatrix[5] // MatrixForm