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

回复此楼

» 猜你喜欢

请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有6人回复
孩子确诊有中度注意力缺陷已经有14人回复
三甲基碘化亚砜的氧化反应已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复

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

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

智能机器人

Robot (super robot)

我们都爱小木虫

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

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

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

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

返回列表