谁能介绍一下,全主元高斯—约当消去法求逆矩阵的理论(不需要代码)?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 20:33:24
谁能介绍一下,全主元高斯—约当消去法求逆矩阵的理论(不需要代码)?
下面是:实矩阵求逆的全选主元高斯-约当法
'
Public Function Gauss_AX(ByRef A() As Double,ByVal N As Long,ByRef B() As Double) As Boolean
Dim IA(),IR(),IC()
Dim iRow As Long,iCol As Long
Dim lMax As Single
Dim I,J,K,L,LL,lTemp,pIV
ReDim IA(1 To N)
ReDim IR(1 To N)
ReDim IC(1 To N)
Gauss_AX = True
For J = 1 To N
IA(J) = 0
Next
For I = 1 To N
lMax = 0#
For J = 1 To N
If IA(J) 1 Then
For K = 1 To N
If IA(K) = 0 Then
If Abs(A(J,K)) > = lMax Then
lMax = Abs(A(J,K))
iRow = J
iCol = K
End If
ElseIf IA(K) > 1 Then
Gauss_AX = False '计算失败
Exit Function
End If
Next
End If
Next
IA(iCol) = IA(iCol) + 1
If iRow iCol Then
For L = 1 To N
lTemp = A(iRow,L)
A(iRow,L) = A(iCol,L)
A(iCol,L) = lTemp
Next
lTemp = B(iRow)
B(iRow) = B(iCol)
B(iCol) = lTemp
End If
IR(I) = iRow
IC(I) = iCol
If A(iCol,iCol) = 0 Then
Gauss_AX = False '计算失败
Exit Function
End If
pIV = 1# / A(iCol,iCol)
A(iCol,iCol) = 1#
For L = 1 To N
A(iCol,L) = A(iCol,L) * pIV
Next
B(iCol) = B(iCol) * pIV
For LL = 1 To N
If LL iCol Then
lTemp = A(LL,iCol)
A(LL,iCol) = 0#
For L = 1 To N
A(LL,L) = A(LL,L) - A(iCol,L) * lTemp
Next
B(LL) = B(LL) - B(iCol) * lTemp
End If
Next
For L = N To 1 Step -1
If IR(L) IC(L) Then
For K = 1 To N
lTemp = A(K,IR(L))
A(K,IR(L)) = A(K,IC(L))
A(K,IC(L)) = lTemp
Next
End If
Next
Next
Erase IA,IR,IC
End Function
'
Public Function Gauss_AX(ByRef A() As Double,ByVal N As Long,ByRef B() As Double) As Boolean
Dim IA(),IR(),IC()
Dim iRow As Long,iCol As Long
Dim lMax As Single
Dim I,J,K,L,LL,lTemp,pIV
ReDim IA(1 To N)
ReDim IR(1 To N)
ReDim IC(1 To N)
Gauss_AX = True
For J = 1 To N
IA(J) = 0
Next
For I = 1 To N
lMax = 0#
For J = 1 To N
If IA(J) 1 Then
For K = 1 To N
If IA(K) = 0 Then
If Abs(A(J,K)) > = lMax Then
lMax = Abs(A(J,K))
iRow = J
iCol = K
End If
ElseIf IA(K) > 1 Then
Gauss_AX = False '计算失败
Exit Function
End If
Next
End If
Next
IA(iCol) = IA(iCol) + 1
If iRow iCol Then
For L = 1 To N
lTemp = A(iRow,L)
A(iRow,L) = A(iCol,L)
A(iCol,L) = lTemp
Next
lTemp = B(iRow)
B(iRow) = B(iCol)
B(iCol) = lTemp
End If
IR(I) = iRow
IC(I) = iCol
If A(iCol,iCol) = 0 Then
Gauss_AX = False '计算失败
Exit Function
End If
pIV = 1# / A(iCol,iCol)
A(iCol,iCol) = 1#
For L = 1 To N
A(iCol,L) = A(iCol,L) * pIV
Next
B(iCol) = B(iCol) * pIV
For LL = 1 To N
If LL iCol Then
lTemp = A(LL,iCol)
A(LL,iCol) = 0#
For L = 1 To N
A(LL,L) = A(LL,L) - A(iCol,L) * lTemp
Next
B(LL) = B(LL) - B(iCol) * lTemp
End If
Next
For L = N To 1 Step -1
If IR(L) IC(L) Then
For K = 1 To N
lTemp = A(K,IR(L))
A(K,IR(L)) = A(K,IC(L))
A(K,IC(L)) = lTemp
Next
End If
Next
Next
Erase IA,IR,IC
End Function
谁能提供一下D.H.Lawrence的英文介绍啊?不需要作品介绍!
谁能告诉我用高斯-约旦消去法来求两矩阵相乘的的算法原理?
谁能告诉我一下代码是干嘛用的啊(matlab语言)
爱因斯坦的理论爱因斯坦得一个理论 当人得速度达到光的速度得时候人就可以穿越时空 谁能详细告诉我有关这个理论得详细介绍 不
中科院化学所的理论化学怎么样,国内哪个地方的理论化学最好?能具体介绍一下化学所理论化学平时都做啥?
javascript代码,谁能解释一下这个代码的含义,
MATLAB用高斯消去法解非线性方程组的代码
谁能介绍一下南极的气候?
谁能介绍一下生态平衡的重要性?
谁能介绍一下李大钊的平生?
谁能介绍一下奶酪的成分?
谁能介绍一下海伦凯勒写的