24小时热门版块排行榜    

查看: 2250  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

疾风掠影

木虫 (正式写手)

[求助] matlab计算结果和excel完全不一样 已有2人参与

请教各位:
我有一段程序通过matlab计算出的结果和用Excel中VB计算的结果完全不一样,跪求指导。。。。。(已经确定是程序中这段的问题,实在找不出2者的区别)
两种语言中中Ndata=n,  inpt(i)= sh.Cells(i + 1, 4)
matlab程序如下:
for i=1:Ndata
    if h1>a(9)
        q2=a(3).*(h1-a(9));
        q1=a(2).*(h1-a(8));
    elseif h1>=a(8) && h1<=a(9)
        q2=0;
        q1=a(2).*(h1-a(8));
    else
        q1=0;
        q2=0;
    end
    q3=a(4).*h1;
    if h2>a(10)
        q4=a(5).*(h2-a(10));
    else
        q4=0;
    end
    q5=a(6).*h2;
    q6=a(7).*h3;
    h1=h1+inpt(i)-q1-q2-q3;
    h2=h2+q3-q4-q5;
    h3=h3+q5-q6;
    if h1<0
        h1=0;
    end
    if h2<0
        h2=0;
    end
    if h3<0
        h3=0;
    end
  h3
end

VB如下:
   For i = 1 To n
    If h1 > a(9) Then
        q2 = a(3) * (h1 - a(9))
        q1 = a(2) * (h1 - a(8))
    ElseIf h1 >= a(8) & h1 <= a(9) Then
        q2 = 0#
        q1 = a(2) * (h1 - a(8))
    Else
        q1 = 0#
        q2 = 0#
    End If
    q3 = a(4) * h1
    If h2 > a(10) Then
    q4 = a(5) * (h2 - a(10))
    Else
    q4 = 0#
    End If
    q5 = a(6) * h2
    q6 = a(7) * h3
    h1 = h1 + sh.Cells(i + 1, 4) - q1 - q2 - q3
    h2 = h2 + q3 - q4 - q5
    h3 = h3 + q5 - q6
    If h1 < 0 Then
        h1 = 0#
    End If
    If h2 < 0 Then
        h2 = 0#
    End If
    If h3 < 0 Then
    h3 = 0#
    End If
Next i
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

库里小弟

铜虫 (正式写手)

楼主,十年过去了,问题解决了吗。。。
6楼2021-10-08 11:33:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

baor8207

铁杆木虫 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
疾风掠影: 金币+10, ★★★很有帮助, 应该是计算精度的问题,我都用matlab算得了 2014-03-17 11:10:45
如果程序没有问题,建议你排除两个软件计算精度的影响
2楼2014-01-23 15:29:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

myth猪猪

金虫 (正式写手)

我不太懂楼主的程序 但是我也经常遇到其他软件和office的结果不同的情况 现在用R语言和excel求解一组方程 查的不是一丁半点
3楼2014-01-24 04:25:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

信彼南山

木虫 (著名写手)

我觉得代码应该一样的
没有具体的参数设置看不出来更详细的了
4楼2014-01-24 04:47:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +8 wangyl_123 2026-10-10 12/600 2026-10-13 20:40 by Merryya
[硕博家园] 极限拉扯,如何抉择 +9 Isak0320 2026-10-12 13/650 2026-10-13 11:57 by Isak0320
[教师之家] 课题组会帮你通过考核么? +4 好运来~9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些? +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
请填处理意见