锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net矩阵求逆 vb生成矩阵代码

IT技术元素

vb.net矩阵的问题要实现什么样的功能呢?矩阵就是二维表吧,在.Net中有许多方法可以实现二维表,根据不同的需求选择适合的方法,你应该详细一点说明
怎样用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 (pD) Then
D = p
nIs(k) = i
nJs(k) = j
End If
Next j
Next i
' 求解失败
【vb.net矩阵求逆 vb生成矩阵代码】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 (jk) Then mtxA(k, j) = mtxA(k, j) * mtxA(k, k)
Next j
For i = 1 To N
If (ik) Then
For j = 1 To N
If (jk) 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 (ik) 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
来源:
矩阵的逆怎么计算？求矩阵的逆常用的有如下三种做法 。经济数学团队帮你解答 ， 请及时采纳 。谢谢！
一、公式法：A的逆阵=(1/|A|)A*，其中A*是A的伴随阵 。
二、初等变换法：对分块矩阵(A,E)做行初等变换 ， 前半部分A化成单位阵E时，后半部分E就化成了A的逆阵 。
三、猜测法：如果能通过已知条件得出AB=E或BA=E，则B就是A的逆矩阵 。
矩阵怎么求逆矩阵的逆等于伴随矩阵除以矩阵的行列式 ， 所以现在只要求原矩阵的行列式即可 。
A^*=A^(-1)|A|,
两边同时取行列式得
|A^*|=|A|^2 （因为是三阶矩阵）
又|A^*|=4,|A|0,所以|A|=2
所以A^(-1)=A^(*)/2,就是伴随矩阵除以2 。
特殊求法：
（1）当矩阵是大于等于二阶时 ：
主对角元素是将原矩阵该元素所在行列去掉再求行列式，非主对角元素是原矩阵该元素的共轭位置的元素去掉所在行列求行列式乘以 ，  x ， y为该元素的共轭位置的元素的行和列的序号，序号从1开始 。主对角元素实际上是非主对角元素的特殊情况，因为x=y，所以，一直是正数，没必要考虑主对角元素的符号问题 。
（2）当矩阵的阶数等于一阶时，伴随矩阵为一阶单位方阵 。
（3）二阶矩阵的求法口诀：主对角线元素互换，副对角线元素加负号 。

推荐阅读


上一篇：拍摄人文照片注意什么，人文拍照要拍什么

下一篇：抖音直播拆欢乐盲盒技巧，抖音直播间拆盲盒怎么拆