From 1a6b95273628d898226eb448c8b671dc33f3c495 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunt Date: Wed, 15 Nov 2023 14:16:15 -0700 Subject: compute dominant eigenvalue --- src/matrix.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/matrix.c') diff --git a/src/matrix.c b/src/matrix.c index 0891734..04c5adc 100644 --- a/src/matrix.c +++ b/src/matrix.c @@ -42,6 +42,16 @@ Matrix_double *m_dot_m(Matrix_double *a, Matrix_double *b) { return prod; } +Matrix_double *transpose(Matrix_double *m) { + Matrix_double *transposed = InitMatrixWithSize(double, m->cols, m->rows, 0.0); + + for (size_t x = 0; x < m->rows; x++) + for (size_t y = 0; y < m->cols; y++) + transposed->data[y]->data[x] = m->data[x]->data[y]; + + return transposed; +} + Matrix_double *put_identity_diagonal(Matrix_double *m) { assert(m->rows == m->cols); Matrix_double *copy = copy_matrix(m); -- cgit v1.2.3-70-g09d2