es

Positive Definite Matrices

How to generate SPD matrix

B3 = (1/7)*{{3, 2, 6}, {-6, 3, 2}, {2, 6, -3}} C2 = (1/5)*{{3, 4}, {4, -3}} Q6 = KroneckerProduct[C2, B3] Q66 = Transpose[Q6] A6 = Q66 . DiagonalMatrix[{35, 70, 35, 105, 35, 70}] . Q6 A = A6*35 {{1901, 222, 372, 168, -504, -504}, {222, 2010, 150, -504, -420, 0}, {372, 150, 2557, -504, 0, -924}, {168, -504, -504, 1999, -72, 78}, {-504, -420, 0, -72, 1765, 150}, {-504, 0, -924, 78, 150, 2018}}