matinv.c

Go to the documentation of this file.

/*************************************************************************
 * Copyright (c) 2011 AT&T Intellectual Property 
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * https://www.eclipse.org/legal/epl-v10.html
 *
 * Contributors: Details at https://graphviz.org
 *************************************************************************/
 
/*
 * This code was (mostly) written by Ken Turkowski, who said:
 *
 * Oh, that. I wrote it in college the first time. It's open source - I think I
 * posted it after seeing so many people solve equations by inverting matrices
 * by computing minors naïvely.
 * -Ken
 *
 * The views represented here are mine and are not necessarily shared by
 * my employer.
        Ken Turkowski                   turk@apple.com
        Immersive Media Technologist    http://www.worldserver.com/turk/
        Apple Computer, Inc.
        1 Infinite Loop, MS 302-3VR
        Cupertino, CA 95014
 */
 
/* Matinv() inverts the matrix A using LU decomposition.  Arguments:
 *      A    - the (n x n) matrix to be inverted
 *      Ainv - the (n x n) inverted matrix
 *      n    - the order of the matrices A and Ainv
 */
 
#include "config.h"
 
#include <common/render.h>
#include <neatogen/neato.h>
#include <util/gv_math.h>
 
int matinv(double **A, double **Ainv, int n)
{
    /* Decompose matrix into L and U triangular matrices */
    lu_t lu = {0};
    if (lu_decompose(&lu, A, n) == 0)
        return 0; // singular
 
    /* Invert matrix by solving n simultaneous equations n times */
    for (int i = 0; i < n; i++) {
        lu_solve(&lu, Ainv[i], i, n); // into a row of Ainv: fix later
    }
    lu_free(&lu);
 
    /* Transpose matrix */
    for (int i = 0; i < n; i++) {
        for (int j = 0; j < i; j++) {
            SWAP(&Ainv[i][j], &Ainv[j][i]);
        }
    }
 
    return 1;
}