matlab求矩阵行最简形,计算矩阵行最简行的命令

初等行变换之互换两行

Public Sub Matrix_Specify_Tow_Row_Exchange(Row_A_Index As Integer, Row_B_Index As Integer, temp_matrix() As Single)

Dim i As Integer

For i = 1 To UBound(temp_matrix, 2)

swap temp_matrix(Row_A_Index, i), temp_matrix(Row_B_Index, i)

Next i

End Sub

'初等行变换之一行自乘一个数后加至另一行上去

Public Sub Matrix_Single_Row_ShuChen_Addition_To_Other_Row(temp_matrix() As Single, Row_A_Index As Integer, Row_B_Index As Integer, k As Single)

Dim i As Integer

For i = 1 To UBound(temp_matrix, 2)

temp_matrix(Row_B_Index, i) = temp_matrix(Row_B_Index, i) + k * temp_matrix(Row_A_Index, i)

Next i

End Sub

'初等行变换之某一行的全体自乘一个数

Public Sub Matrix_Single_Row_ShuChen(k As Single, temp_a() As Single, Row_Index As Integer)

Dim i As Integer

For i = 1 To UBound(temp_a, 2)

temp_a(Row_Index, i) = k *