24小时热门版块排行榜    

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

myth猪猪

金虫 (正式写手)

我不太懂楼主的程序 但是我也经常遇到其他软件和office的结果不同的情况 现在用R语言和excel求解一组方程 查的不是一丁半点
3楼2014-01-24 04:25: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的回帖

信彼南山

木虫 (著名写手)

我觉得代码应该一样的
没有具体的参数设置看不出来更详细的了
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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +3 Tide man 2026-08-14 3/150 2026-08-16 17:47 by jurkat.1640
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜? +9 Ldrop2023 2026-08-13 9/450 2026-08-16 13:24 by wukun_007
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +32 医学老男孩 2026-08-13 72/3600 2026-08-16 13:15 by 医学老男孩
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 26/1300 2026-08-16 12:35 by 启萌科技
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] filecode +8 cratir 2026-08-14 12/600 2026-08-15 18:08 by zyfgau
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[硕博家园] 请教兼职经验 +3 是阿文鸭 2026-08-09 3/150 2026-08-14 12:07 by HER12025
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] FileCode能看出啥? +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
信息提示
请填处理意见