On this page:
matrix-gauss-elim
matrix-row-echelon
matrix-lu

7.10 Row-Based Algorithms

procedure

(matrix-gauss-elim M 
  [jordan? 
  unitize-pivot? 
  pivoting]) 
  (Values (Matrix Number) (Listof Index))
  M : (Matrix Number)
  jordan? : Any = #f
  unitize-pivot? : Any = #f
  pivoting : (U 'first 'partial) = 'partial
Wikipedia: Gaussian elimination, Gauss-Jordan elimination Implements Gaussian elimination or Gauss-Jordan elimination.

If jordan? is true, row operations are done both above and below the pivot. If unitize-pivot? is true, the pivot’s row is scaled so that the pivot value is 1. When both are true, the algorithm is called Gauss-Jordan elimination, and the result matrix is in reduced row echelon form.

If pivoting is 'first, the first nonzero entry in the current column is used as the pivot. If pivoting is 'partial, the largest-magnitude nonzero entry is used, which improves numerical stability on average when M contains inexact entries.

The first return value is the result of Gaussian elimination.

The second return value is a list of indexes of columns that did not have a nonzero pivot.

See matrix-row-echelon for examples.

procedure

(matrix-row-echelon M    
  [jordan?    
  unitize-pivot?    
  pivoting])  (Matrix Number)
  M : (Matrix Number)
  jordan? : Any = #f
  unitize-pivot? : Any = #f
  pivoting : (U 'first 'partial) = 'partial
Wikipedia: Row echelon form Like matrix-gauss-elim, but returns only the result of Gaussian elimination.

Examples:

> (define M (matrix [[2 1 -1] [-3 -1 2] [-2 1 2]]))
> (matrix-row-echelon M)

eval:79:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: M

> (matrix-row-echelon M #t)

eval:80:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: #t

> (matrix-identity? (matrix-row-echelon M #t #t))

eval:81:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: #t

The last example shows that M is invertible.

Using matrix-row-echelon to solve a system of linear equations (without checking for failure):
> (define B (col-matrix [8 -11 -3]))
> (define MB (matrix-augment (list M B)))

eval:83:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: B

> (matrix-col (matrix-row-echelon MB #t #t) 3)

eval:84:0: MB12: unbound identifier;

 also, no #%top syntax transformer is bound

  in: MB12

> (matrix-solve M B)

eval:85:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: B

Using matrix-row-echelon to invert a matrix (also without checking for failure):
> (define MI (matrix-augment (list M (identity-matrix 3))))

eval:86:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: 3

> (submatrix (matrix-row-echelon MI  #t #t) (::) (:: 3 #f))

eval:87:0: MI13: unbound identifier;

 also, no #%top syntax transformer is bound

  in: MI13

> (matrix-inverse M)

eval:88:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: M10

  in: M

procedure

(matrix-lu M [fail])

  (Values (U F (Matrix Number)) (Matrix Number))
  M : (Matrix Number)
  fail : (-> F) = (λ () (error ...))
Wikipedia: LU decomposition Returns the LU decomposition of M (which must be a square-matrix?) if one exists. An LU decomposition exists if M can be put in row-echelon form without swapping rows.

Because matrix-lu returns a unit lower-triangular matrix (i.e. a lower-triangular matrix with only ones on the diagonal), the decomposition is unique if it exists.

Examples:

> (define-values (L U)
    (matrix-lu (matrix [[4 3] [6 3]])))
> (values L U)

eval:90:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: L14

  in: U

> (matrix* L U)

eval:91:0: Type Checker: missing type for top-level

identifier;

 either undefined or missing a type annotation

  identifier: L14

  in: U

If M does not have an LU decomposition, the first result is the result of applying the failure thunk fail, and the second result is the original argument M:
> (matrix-lu (matrix [[0 1] [1 1]]))

matrix-lu: contract violation

  expected: LU-decomposable matrix

  given: (array #[#[0 1] #[1 1]])

> (matrix-lu (matrix [[0 1] [1 1]]) (λ () #f))

- : (values (U False (Array Real)) (Array Real))

#f

(array #[#[0 1] #[1 1]])