VB.Net矩阵求逆
2016-03-04 14:17
489 查看
Function Rect_yu(A As Array, L As Integer, C As Array) As Single '矩阵求逆 Dim T0 As Single Dim T1 As Single Dim T2 As Single Dim T3 As Single Dim B(0, 0) As Single Dim Num As Single Dim Chay As Integer Dim Chax As Integer 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 T0 End Function
相关文章推荐
- VB.Net行列计算函数
- Win2D 入门教程 VB 中文版
- 在vb.net中如何判断字段为null
- VBA教程初级(四):声明数组
- VBA转换文件编码到UTF-8
- VBA转换文件编码到UTF-8
- VBA-工程-找不到工程或库-解决方案
- VB 中 NumericUpDown 控件 如何为手动输入设定触发事件
- Powerpoint上传附加vb代码
- Excel VBA语句集
- 关于在64位win7下运行Virtualbox安装系统时提示出错Unable to load R3 module D:\VirtualBox/VBoxDD.DLL (VBoxDD): GetLastE
- VBA教程初级(三):变量的声明与作用域
- Excel 两列单元格合并超级链接的VBA 写法
- VBA教程初级(一):简单宏
- VB.net视频总结
- VB 基础
- VB.net 任务栏标签显示
- VBA清除Excelpassword保护,2003/2007/2010均适用
- vb.net 线程处理画面
- VBScript中SendKeys与项目结合的妙用