24小时热门版块排行榜

>论坛更新日志 (3464)
>文献求助 (361)
>虫友互识 (355)
>导师招生 (196)
>考博 (128)
>硕博家园 (101)
>休闲灌水 (95)
>博后之家 (91)
>论文投稿 (83)
>公派出国 (68)
>基金申请 (61)
>教师之家 (40)
>找工作 (40)
>考研 (32)
>有机交流 (31)
>绿色求助(高悬赏) (22)

返回列表

溪行有声

新虫 (初入文坛)

应助: 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

回复此楼

» 猜你喜欢

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

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

智能机器人

Robot (super robot)

我们都爱小木虫

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

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

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

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

返回列表