24小时热门版块排行榜

返回列表

溪行有声

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 56.2
散金: 10
帖子: 36
在线: 17.8小时
虫号: 2501264
注册: 2013-06-08
性别: GG
专业: 岩土与基础工程

[求助] 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人回复
最失望的一年已经有12人回复
存款400万可以在学校里躺平吗已经有29人回复
求推荐英文EI期刊已经有5人回复
请教限项目规定已经有4人回复
国自然申请面上模板最新2026版出了吗？已经有20人回复
26申博已经有3人回复
基金委咋了？2026年的指南还没有出来？已经有10人回复
基金申报已经有6人回复
疑惑？已经有5人回复

1楼 2015-01-18 23:02:03

已阅关注TA 给TA发消息送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

点击这里搜索更多相关资源

科研从小木虫开始，人人为我，我为人人

相关版块跳转我要订阅楼主溪行有声的主题更新

返回列表