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

回复此楼

» 猜你喜欢

过年走亲戚时感受到了所开私家车的鄙视链已经有10人回复
今年春晚有几个节目很不错，点赞！已经有12人回复
情人节自我反思：在爱情中有过遗憾吗？已经有13人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有12人回复
基金正文30页指的是报告正文还是整个申请书已经有5人回复

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

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

智能机器人

Robot (super robot)

我们都爱小木虫

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

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

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

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

返回列表