| 查看: 800 | 回复: 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 |
回复此楼» 猜你喜欢
申请科研项目纯靠实力能成功吗？
已经有8人回复
-
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
找到一些相关的精华帖子，希望有用哦~
经典教材矩阵迭代分析，译自英文原版版
已经有85人回复
- 求证明一个迭代的收敛性条件(或者证明无条件收敛也行)
已经有6人回复
- 求Matlab高手解决线性方程组的迭代求解问题
已经有17人回复
- matlab求解非线性方程组
已经有16人回复
- matlab的fsove 命令求解非线性方程组
已经有6人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
200
