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 whether the matrix exists
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
This page is also available for…
|
|
|
|