怎样用VB编程矩阵求逆

矩阵求逆的VB程序

专注于为中小企业提供做网站、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业梁平免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了数千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

Private Function MRinv(N As Integer, mtxA() As Double) As Boolean

'****************************************************************************************

' 功能： 实现矩阵求逆的全选主元高斯－约当法

' 参数： n - Integer型变量，矩阵的阶数

' mtxA - Double型二维数组，体积为n x n。存放原矩阵A；返回时存放其逆矩阵A-1。

' 返回值：Boolean型，失败为False，成功为True

'****************************************************************************************

ReDim nIs(N) As Integer, nJs(N) As Integer

Dim i As Integer, j As Integer, k As Integer

Dim D As Double, p As Double

' 全选主元，消元

For k = 1 To N

D = 0#

For i = k To N

For j = k To N

p = Abs(mtxA(i, j))

If (p D) Then

D = p

nIs(k) = i

nJs(k) = j

End If

Next j

Next i

' 求解失败

If (D + 1# = 1#) Then

MRinv = False

Exit Function

End If

If (nIs(k) k) Then

For j = 1 To N

p = mtxA(k, j)

mtxA(k, j) = mtxA(nIs(k), j)

mtxA(nIs(k), j) = p

Next j

End If

If (nJs(k) k) Then

For i = 1 To N

p = mtxA(i, k)

mtxA(i, k) = mtxA(i, nJs(k))

mtxA(i, nJs(k)) = p

Next i

End If

mtxA(k, k) = 1# / mtxA(k, k)

For j = 1 To N

If (j k) Then mtxA(k, j) = mtxA(k, j) * mtxA(k, k)

Next j

For i = 1 To N

If (i k) Then

For j = 1 To N

If (j k) Then mtxA(i, j) = mtxA(i, j) - mtxA(i, k) * mtxA(k, j)

Next j

End If

Next i

For i = 1 To N

If (i k) Then mtxA(i, k) = -mtxA(i, k) * mtxA(k, k)

Next i

Next k

' 调整恢复行列次序

For k = N To 1 Step -1

If (nJs(k) k) Then

For j = 1 To N

p = mtxA(k, j)

mtxA(k, j) = mtxA(nJs(k), j)

mtxA(nJs(k), j) = p

Next j

End If

If (nIs(k) k) Then

For i = 1 To N

p = mtxA(i, k)

mtxA(i, k) = mtxA(i, nIs(k))

mtxA(i, nIs(k)) = p

Next i

End If

Next k

' 求解成功

MRinv = True

End Function

来源:

逆矩阵怎么求?

逆矩阵求法：

方法有很多如（伴随矩阵法，行（列）初等变换等）。以伴随矩阵法来求其逆矩阵。

1、判断题主给出的矩阵是否可逆。

2、求矩阵的代数余子式，A11、A12、A13、A21、A22、A32、A31、A32、A33。

3、求伴随矩阵。

4、得到逆矩阵。

相关性质

(1)A与B的地位是平等的，故A、B两矩阵互为逆矩阵，也称A是B的逆矩阵。

(2)单位矩阵E是可逆的。

(3)零矩阵是不可逆的，即取不到B，使OB=BO=E。

(4)如果A可逆，那么A的逆矩阵是唯一的。事实上，设B、C都是A的逆矩阵，则有B=BE =B(AC)=(BA)C=EC=C。

vb.net中矩阵计算问题请教高手.

给你一个函数 Public Sub Vect1XtoVect2(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double, _ ByVal x2 As Double, ByVal y2 As Double, ByVal z2 As Double, _ ByRef xNew As Double, ByRef yNew As Double, ByRef zNew As Double) '矢量叉积 xNew = y1 * z2 - z1 * y2 yNew = z1 * x2 - x1 * z2 zNew = x1 * y2 - y1 * x2 End Sub其中x1,y1,z1为第一个矢量，x2,y2,z2为第二个矢量xnew,ynew,znew为得到的新矢量

帮忙解释一下这个vb求逆矩阵语句

1采用二维数组存放矩阵各元素值

2根据数矩阵运算规则进行相应计算

新闻标题：vb.net矩阵求逆函数 求逆矩阵的编程
网页链接：http://chengdu.cdxwcx.cn/article/doeiiic.html