24小时热门版块排行榜    

查看: 8225  |  回复: 145
本帖产生 1 个 程序强帖 ,点击这里进行查看

杨凯军1990

金虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
内容已删除
相信好人会有好报的
141楼2014-10-26 18:57:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

溪行有声

新虫 (初入文坛)


小木虫: 金币+0.5, 给个红包,谢谢回帖
楼主大神您好,我正在学VB,在学习利用VB进行雅克比迭代解线性方程组是卡住了,求帮忙,另外VB解矩阵实在烦,学VB可以绕过这些,利用matlab

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
如解我多周之疑惑,将不胜感激
142楼2015-01-18 22:56:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sunny0_0yao

新虫 (初入文坛)


小木虫: 金币+0.5, 给个红包,谢谢回帖
我现在在打包一个程序,可是一直有问题,是这样的:我使用VS2010写了一个MFC程序,设置了MFC静态编译、ATL静态链接、多线程(/MT)可以将程序正常打包,mfc中使用了teechart的插件,打包时将其属性设置为自注册,启动项目与目标项目的条件设置的一致,都用的.NET Framework 4.0,系统必备使用的是"从组件供应商的网站下载系统必备组件",打包过程中没有错误和警告,安装过程也很正常,但是安装后双击exe文件,会弹出对话框提示“应用程序无法正常启动(0xc0000142)。请单击‘确定’来关闭应用程序”。使用过两台电脑均出现这样的情况,请问是哪里出现问题了,应如何处理?
143楼2015-02-14 08:04:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tgvictor99

木虫 (知名作家)

迷糊领域荣誉领主


小木虫: 金币+0.5, 给个红包,谢谢回帖
最近在研究VC++的MFC,想结合用matlab写好的算法,做一个简单的界面,不过进展很缓慢。不知道楼主有什么建议没??
每个人的人生都是时代的产物。每个人的血统、命运和梦想组成了现在这个时代。
144楼2015-02-15 21:43:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

董昌316

新虫 (初入文坛)


小木虫: 金币+0.5, 给个红包,谢谢回帖
你好我主要就是想问,怎么用C++把
function [W,E,T,iter] = kspdp4(X,lambda, gamma, tol,W,E)
[d,n] = size(X);
if nargin < 6
    W = zeros(n,n);
    E = zeros(d,n);
end
if nargin < 4
    tol = 1e-2;
end
if nargin < 3
   
    gamma = 0.1*lambda;
改写呢?
我试了int i, j;
        float a[N][N], b[D][N];
        int n,d,t;
        std::cout << "输入输入参数的个数t=";
        std::cin >> t;
        cout << "请输入" << t<< "个参数: \n";
         i = t;
这样子好像根本就没把手动输入的数赋值给i,下面的也就根本判断不出来啊
if (i < 6) .....
if(i<4)......

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 新建_Microsoft_Word_文档_(3).doc
  • 2015-04-07 22:05:12, 13.5 K
145楼2015-04-07 22:08:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

谭留香

新虫 (初入文坛)


小木虫: 金币+0.5, 给个红包,谢谢回帖
送红花一朵
lz我学完了c++的基础知识,想要深入学习c++还需要学那些知识,有什么书可以推荐的,谢谢。
146楼2015-04-24 21:13:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 magic7004 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料工程专硕调剂 +3 204818@lcx 2026-03-17 3/150 2026-03-17 16:27 by 无际的草原
[考研] 0854可跨调剂,一作一项核心论文五项专利,省、国级证书40+数一英一287 +3 小李0854 2026-03-16 3/150 2026-03-17 13:40 by 热情沙漠
[考研] 267一志愿南京工业大学0817化工求调剂 +6 SUICHILD 2026-03-12 6/300 2026-03-17 09:24 by 雾散后相遇lc
[考研] 283求调剂 +3 听风就是雨; 2026-03-16 3/150 2026-03-17 07:41 by 热情沙漠
[考研] 一志愿985,本科211,0817化学工程与技术319求调剂 +5 Liwangman 2026-03-15 5/250 2026-03-16 17:10 by 我的船我的海
[考研] 304求调剂 +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by 我的船我的海
[考研] 材料与化工一志愿南昌大学327求调剂推荐 +7 Ncdx123456 2026-03-13 8/400 2026-03-16 12:15 by karry wen
[考研] 0703化学调剂 290分有科研经历,论文在投 +7 腻腻gk 2026-03-14 7/350 2026-03-16 10:12 by houyaoxu
[考研] 0856专硕279求调剂 +5 加油加油!? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[考研] 22408总分284求调剂 +3 InAspic 2026-03-13 3/150 2026-03-15 11:10 by zhq0425
[考研] 308 085701 四六级已过求调剂 +7 温乔乔乔乔 2026-03-12 14/700 2026-03-14 10:49 by JourneyLucky
[考研] 279求调剂 +3 抓着星星的女孩 2026-03-10 3/150 2026-03-13 23:47 by userper
[考研] 复试调剂 +9 Copy267 2026-03-10 9/450 2026-03-13 23:45 by userper
[考研] 336求调剂 +6 Iuruoh 2026-03-11 6/300 2026-03-13 22:06 by JourneyLucky
[考研] 281求调剂 +9 Koxui 2026-03-12 11/550 2026-03-13 20:50 by Koxui
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
[考研] 求调剂 +3 程雨杭 2026-03-12 3/150 2026-03-13 15:06 by JourneyLucky
[考研] 070303一志愿西北大学学硕310找调剂 +3 d如愿上岸 2026-03-13 3/150 2026-03-13 10:43 by houyaoxu
[考研] 化工学硕306求调剂 +9 42838695 2026-03-12 9/450 2026-03-13 10:16 by houyaoxu
[考研] 420求调剂 +4 莫向外求11 2026-03-10 6/300 2026-03-12 14:41 by ruiyingmiao
信息提示
请填处理意见