| 查看: 717 | 回复: 0 | |||
溪行有声新虫 (初入文坛)
|
[求助]
VB雅克比迭代解矩阵方程求助
|
|
各位大神，小弟在VB学习中解雅克比迭代线性方程中，可以出结果，但用matlab验证是错解答， 还有就是VB在解矩阵方程中不好用，要学会VB，可以绕过矩阵的编程吗，好纠结，还望大神们予以指导 Private Sub Form_Click() Dim a%(3, 3), b%(3), x#(3), y#(3), k#(3), s As Double, e#, Max e = Val(InputBox("请输入精度e"  )For i = 0 To 3 x(i) = Val(InputBox("请任意输入一个数X" )Next i For i = 0 To 3 For j = 0 To 3 a(i, j) = Val(InputBox("请输入A" )Next j b(i) = Val(InputBox("请输入B" )Next i t = 0 Do For i = 0 To 3 For j = 0 To 3 If i <> j Then s = s + a(i, j) * x(j) End If y(i) = (b(i) - s) / a(i, i) t = t + 1 Next j Next i For i = 0 To 3 k(i) = Abs(x(i) - y(i)) Next i Max = k(0) For i = 1 To 3 If Max < k(i) Then Max = k(i) Next i For j = 0 To 3 x(j) = y(j) Next j Loop Until Max < e Or t < 100 For i = 0 To 3 Print Tab(4 * j); y(i); Next i For i = 0 To 3 For j = 0 To 3 Print Tab(5 * j); a(i, j); Next Next For i = 0 To 3 Print Tab(5 * j); b(i); Next Print t End Sub |
回复此楼» 猜你喜欢
329求调剂
已经有8人回复
-
070305高分子化学与物理 304分求调剂
已经有8人回复
-
349求调剂
已经有5人回复
-
一志愿北京理工大学本科211材料工程294求调剂
已经有7人回复
-
291求调剂
已经有4人回复
-
0856材料化工调剂 总分330
已经有14人回复
-
352分-085602-一志愿985
已经有5人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有8人回复
-
求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分
已经有4人回复
-
279求调剂
已经有4人回复
找到一些相关的精华帖子，希望有用哦~
经典教材矩阵迭代分析，译自英文原版版
已经有85人回复
- 求证明一个迭代的收敛性条件(或者证明无条件收敛也行)
已经有6人回复
- 求Matlab高手解决线性方程组的迭代求解问题
已经有17人回复
- matlab求解非线性方程组
已经有16人回复
- matlab的fsove 命令求解非线性方程组
已经有6人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
