24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1968  |  回复: 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的回帖
相关版块跳转 我要订阅楼主 疾风掠影 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 26药学专硕105500求调剂 +7 喽哈加油 2026-04-13 8/400 2026-04-19 20:21 by Equinoxhua
[考研] 297,工科调剂? +11 河南农业大学-能 2026-04-14 11/550 2026-04-19 20:07 by Equinoxhua
[考研] 294求调剂 +8 淡然654321 2026-04-17 9/450 2026-04-19 19:51 by Equinoxhua
[考研] 求调剂 +10 小聂爱学习 2026-04-16 12/600 2026-04-19 16:51 by 中豫男
[考研] 291求调剂 +12 关忆北. 2026-04-14 13/650 2026-04-19 16:50 by 中豫男
[考研] 求调剂 +6 苦命人。。。 2026-04-18 7/350 2026-04-19 16:27 by 中豫男
[考研] 0854求调剂 +23 门路摸摸 2026-04-15 27/1350 2026-04-19 01:59 by 烟雨流涯
[考研] 300求调剂 +12 橙a777 2026-04-15 12/600 2026-04-18 23:51 by 路病情
[考研] 320求调剂 +5 深郊akm 2026-04-17 5/250 2026-04-18 19:52 by 王珺璞
[考研] 收到复试调剂但是去不了 +8 小蜗牛* 2026-04-16 8/400 2026-04-18 11:15 by zixin2025
[考研] 急需调剂 +9 绝不放弃22 2026-04-15 10/500 2026-04-18 08:09 by chixmc
[考研] 一志愿华中农业071010,320求调剂 +17 困困困困坤坤 2026-04-14 19/950 2026-04-17 20:08 by 关一盏灯cd
[考研] 一志愿中科大材料与化工,353分还有调剂学校吗 +10 否极泰来2026 2026-04-15 12/600 2026-04-17 17:54 by mapenggao
[考研] 297,工科调剂?河南农业大学本科 +14 河南农业大学-能 2026-04-14 14/700 2026-04-16 14:41 by dingyanbo1
[基金申请] RY:中国产出的科学垃圾论文,绝对数量和比例都世界第一 +7 zju2000 2026-04-14 18/900 2026-04-16 11:36 by 欢乐颂叶蓁
[考研] 药学求调剂 +14 喽哈加油 2026-04-14 16/800 2026-04-16 10:15 by beilsong20
[考研] 求调剂学校 +14 不会吃肉 2026-04-13 16/800 2026-04-15 21:59 by noqvsozv
[考研] 一志愿A区211,22408 321求调剂 +6 随心所欲☆ 2026-04-15 7/350 2026-04-15 21:45 by lbsjt
[考研] 考研调剂 +13 长弓傲 2026-04-13 14/700 2026-04-14 14:44 by zs92450
[考研] 245求调剂 +6 冰糖橘?汽水 2026-04-13 10/500 2026-04-14 10:49 by jyl0317
信息提示
请填处理意见