急求:用vb编写的矩阵求逆的算法,谢谢!

发布网友发布时间：2022-12-27 03:18

共3个回答

热心网友时间：2023-09-19 05:33

Function Rect_yu(A() As Double, L As Long, C() As Double) As Double 矩阵求逆 Dim T0 As Double Dim T1 As Double Dim T2 As Double Dim T3 As Double Dim B() As Double Dim Num As Double Dim Chay As Long Dim Chax As Long Chay = 0 Chax = 0 ReDim B(L - 1, L - 1) Num = 0 Dim add As Double add = 1 / Rect(A(), L) For T0 = 0 To L For T3 = 0 To L For T1 = 0 To L - 1 If T1 < T0 Then Chax = 0 Else Chax = 1 End If For T2 = 0 To L - 1 If T2 < T3 Then Chay = 0 Else Chay = 1 End If B(T1, T2) = A(T1 + Chax, T2 + Chay) Next T2 Next T1 Rect(B(), L - 1) 调用求行列式值 C(T3, T0) = Rect(B(), L - 1) * add * ((-1) ^ (T0 + T3)) Next T3 Next T0End Function

热心网友时间：2023-09-19 05:33

第一种方法里面 Rect(A(), L)是什么函数？谢谢！第二种方法我试过了，对于我的矩阵求出来的逆矩阵还是错误的。谢谢！第一种方法里面 Rect(A(), L)是什么函数？谢谢！

热心网友时间：2023-09-19 05:34

如果只是算一次用Excel的函数就能求出来的，并且速度很快