24小时热门版块排行榜    

查看: 2162  |  回复: 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的回帖

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的回帖

cobrasq

金虫 (小有名气)

【答案】应助回帖

在VB程序中的那个elseIf语句中不应该用&符号,而是应该用And关键词
5楼2014-01-31 11:22:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

库里小弟

铜虫 (正式写手)

楼主,十年过去了,问题解决了吗。。。
6楼2021-10-08 11:33:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 疾风掠影 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +12 爱看书的可乐 2026-08-26 14/700 2026-08-26 12:25 by coolysnow
[基金申请] 系统查不到 +8 董八千 2026-08-26 8/400 2026-08-26 12:18 by soulicct
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 国际合作可查了,中了面上 +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 能否退出参与的面上项目解除限项 +22 koalala 2026-08-24 25/1250 2026-08-26 11:14 by dxcharlary
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 出来了 +8 trojank 2026-08-26 8/400 2026-08-26 09:00 by gxc
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件,有关系吗? +24 木水思豆 2026-08-25 27/1350 2026-08-26 08:26 by yanchen918
[基金申请] 范进中举一文的中心思想 +8 炎黄贵胄 2026-08-22 9/450 2026-08-26 07:47 by WASM
[基金申请] 在坚冰还盖着北海的时候,我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 有没有大神帮我看看基金代码 28+4 1234567wang 2026-08-24 10/500 2026-08-25 19:15 by lfy8008
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
[基金申请] 没有任何消息-是不是就凉了 +9 图啦图啦 2026-08-24 10/500 2026-08-25 11:59 by 南海小哥
[基金申请] 人气不行了 +11 fansofjerry 2026-08-21 11/550 2026-08-25 11:04 by 孤独的英雄6
[教师之家] 导师吐槽:我怎么摊上了这么个极品研究生! +3 苏东坡二世 2026-08-23 3/150 2026-08-25 10:35 by shisan1313
[基金申请] 建议基金发布提前给出明确的时间点 +13 kulium 2026-08-21 16/800 2026-08-24 16:27 by superceng
[基金申请] 让我中一个面上吧! +13 大萍1987 2026-08-20 16/800 2026-08-24 10:23 by 太傻了
[教师之家] 跳槽后在研项目怎么办? +5 简单化xn 2026-08-22 10/500 2026-08-23 12:38 by 简单化xn
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
信息提示
请填处理意见