24小时热门版块排行榜    

查看: 1094  |  回复: 7
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

飘雪139

金虫 (初入文坛)

[交流] 【求助】c++编程,请高手帮我看看这个程序应该怎么写

程序中的公式为:
p[I][j]=(p[j]+p[i-1][j])/2;

s[I][j]=-2*miu*h*p[I][j]*p[I][j]*(1-p[I][j])/(4*dx*4*dx);

fw[i-1][j]=((k[j]+k[i-1][j])/2*v[I][j]+(k[j]+k[i-2][j])/2*v[I-1][j])/2;

fe[j]=((k[i+1][j]+k[j])/2*v[I+1][j]+(k[j]+k[i-1][j])/2*v[I][j])/2;

aw[I-1][j]=dw[i-1][j]+fw[i-1][j]/2;

ae[I+1][j]=de[j]-fe[j]/2;

在这个程序中包含i,j,I,J。我可以像下边这样写程序吗?

for(I=3;I<=m;I++)
    for(J=3;J<=n;J++)
        {
           for(i=2;i<=m;i++)
              for(j=2;j<=n;j++)
        {  
        p[I][j]=(p[j]+p[i-1][j])/2;

        s[I][j]=-2*miu*h*p[I][j]*p[I][j]*(1-p[I][j])/(4*dx*4*dx);

        fw[i-1][j]=((k[j]+k[i-1][j])/2*v[I][j]+(k[j]+k[i-2][j])/2*v[I-1][j])/2;

        fe[j]=((k[i+1][j]+k[j])/2*v[I+1][j]+(k[j]+k[i-1][j])/2*v[I][j])/2;

        aw[I-1][j]=dw[i-1][j]+fw[i-1][j]/2;

        ae[I+1][j]=de[j]-fe[j]/2;
                }
        }

[ Last edited by 飘雪139 on 2008-3-14 at 20:47 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sun20082002

木虫 (初入文坛)

★ ★ ★
lei0736(金币+3,VIP+0):谢谢分析
先看一点点
for(I=3;I<=m;I++)
    for(J=3;J<=n;J++)
       {
          for(i=2;i<=m;i++)
        for(j=2;j<=n;j++)
        {  
        p[I][j]=(p[j]+p[i-1][j])/2;
……
        }
p[I][j] 的值最后都是 (p[m][n]+p[m-1][n])/2, 应该不对吧? 而且在第二次 ij 循环中计算多次。
p[I][j] 与 p[j] 的本质没变,还是同一个数组,你用 I 并不代表它会改变。
对于这样的循环 要不重新找一个数组存放数值,要不 只用 一个 i j 的循环,在内部处理好I 与i 的关系。
8楼2008-05-15 10:21:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

yuxiaobo021


zzgyb(金币+1,VIP+0):谢谢您的参与,欢迎您常来计算模拟版解答问题。
楼主定义的k是一维数组还是二维数据?
怎么一会是k[j],一会儿又是k[i-1][j]。想不明白,怎么就人帮你呀!
2楼2008-03-15 08:53:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

飘雪139

金虫 (初入文坛)

是二维数组,上面的写错了,我在重新写一个
3楼2008-03-15 17:46:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

飘雪139

金虫 (初入文坛)

for(I=3;I<=m;I++)
    for(J=3;J<=n;J++)
       {
          for(i=2;i<=m;i++)
        for(j=2;j<=n;j++)
        {  
        p[I][j]=(p[j]+p[i-1][j])/2;
       s[I][j]=-2*miu*h*p[I][j]*p[I][j]*(1-p[I][j])/(4*dx*4*dx);
       dw[i-1][j]=miu*k[i-1][j]/dx;
        de[j]=miu*k[j]/dx;                          
        fw[i-1][j]=((k[j]+k[i-1][j])/2*v[I][j]+(k[j]+k[i-2][j])/2*v[I-1][j])/2;
fe[j]=((k[i+1][j]+k[j])/2*v[I+1][j]+(k[j]+k[i-1][j])/2*v[I][j])/2;               
       aw[I-1][j]=dw[i-1][j]+fw[i-1][j]/2;
       ae[I+1][j]=de[j]-fe[j]/2;
       au[I][j]=(k[j]+k[i-1][j])/2;       
}
}
4楼2008-03-15 17:54:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 12/600 2026-08-12 01:27 by 南京中西医
[基金申请] 奇怪,两个人的filecode固定段从头到尾一模一样 +7 布布和一二 2026-08-10 9/450 2026-08-11 22:12 by 医学老男孩
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +8 Tide man 2026-08-10 9/450 2026-08-11 20:39 by beefly
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 分享一下我之前已中青C的计划书的filecode +3 布布和一二 2026-08-11 4/200 2026-08-11 15:20 by aasahr
[论文投稿] 职称评审,求友友推荐见刊最快的期刊 +3 工厂打螺丝 2026-08-08 3/150 2026-08-11 13:42 by 会议编辑
[基金申请] filecode +9 documentary 2026-08-10 9/450 2026-08-11 10:08 by wk7465
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +8 家与远方 2026-08-10 13/650 2026-08-11 09:49 by 家与远方
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 关于代码变化问题,想知道的进来 +17 且听虎啸 2026-08-07 24/1200 2026-08-10 18:35 by zhangduo2008
[基金申请] 关于Filecode分析方法 +3 majunge000 2026-08-10 3/150 2026-08-10 15:46 by lch2012
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 好奇怪的filecode +4 布布和一二 2026-08-08 5/250 2026-08-10 14:20 by 冰心玉壶晴
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
[基金申请] filecode与中标关系的预测 +5 布布和一二 2026-08-07 5/250 2026-08-09 16:15 by 袁向阳007
[基金申请] 关于filecode,很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[基金申请] 关于filecode +4 布布和一二 2026-08-07 7/350 2026-08-07 22:55 by zhanghaozhu
[基金申请] 大家散了吧,后缀研究没有意义,别浪费时间了,过好目前的每一天,不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] 影响面上的因素 +8 布布和一二 2026-08-05 11/550 2026-08-06 10:41 by 宝贝虫子
[基金申请] 好消息?这个有何含义??? +8 Tide man 2026-08-05 10/500 2026-08-05 16:14 by xmuxiaoyu
信息提示
请填处理意见