The following code is used to invert a matrix. The name of the matrix is entered by the user in an edit control (EDT_MatrixName).

We assume that the matrix is already created. The existence of the matrix is checked by MatExist. The number of columns must be equal to the number of rows. This determinant must not be null.

// -- Click code on BTN_Invert // Declare the variables ResInvert is boolean // Checks the matrix existence IF MatExist(EDT_MatrixName) = True THEN // Nb. columns in the matrix = Nb. rows in the matrix? IF MatNbColumn(EDT_MatrixName) = MatNbRow(EDT_MatrixName) THEN // Determinant not null? IF MatDeterminant(EDT_MatrixName) <> 0 THEN // Invert the matrix ResInvert = MatInvert(EDT_MatrixName, "MyReversedMatrix") // Error? IF ResInvert = True THEN Info("The inversion was performed") ELSE // Display the error message Error(ErrorInfo(errMessage)) END ELSE Info("The determinant is null") END ELSE Info("The number of columns is not equal to the number of rows") END ELSE Info("The matrix does not exist") END