24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
帖子: 1180
在线: 354.8小时
虫号: 900839

[交流] 【求助】50金币求大家帮忙改一段程序

有一组数据如下所示，第一列代表istep变化范围（1-5000），第二列ia（1-30000），第三列ib（1-800），现在我想用一个三维数组H（istep,ia,ib)来标记这些数据，同一行数字定义的H=1，其他的H均为0.也就是说当istep=1时，ia=781，ib=455时H=1。我的主要目的就是能够将istep，ia，ib用一个函数联系起来，因为在程序后面要用这个函数作为进一步的判断条件。我写了一个程序：
program exam
implicit none
integer ia,ib,istep
integer ::h(5000,30000,800)
integer i

h=0
open (10,file='test.out')
do i=1,99999999
   read(10,*,end=2,err=2) istep,ia,ib
   h(istep,ia,ib)=1
enddo
2 continue
close(10)
do ia=1,30000
do ib=1,800
      do istep=1,5000
            h(istep)=h(istep,ia,ib)
      enddo
      do ntel=1,nsteps
            if(h(ntel)/=0) then
            进行后面的程序
            -----------------
            endif
      enddo
      enddo
enddo
end
但是现在的问题是，定义的三维数组h太大了，程序不能运行，请大家帮忙看看应该怎么办？先谢了

数据：
1    758          22
1    820          245
1    2050       399
1    2587       232
1    15733    34
1    18193    65
1    20718    256
2    820          245
2    2050       399
2    2587       232
2    20251       125
3    758          22
3    820          245
3    1817       625
3    2050       399
3    16723       555
3    18193    65
3    20718    256
---
----
----

回复此楼

» 猜你喜欢

论文终于录用啦！满足毕业条件了已经有13人回复
2025年遐想已经有5人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复
求个博导看看已经有18人回复

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

【急】请大家帮忙看一下这个offer是否合乎要求，新手散光所有金币求助~~ 已经有12人回复
帮忙修改一段我的翻译，好难翻啊555 已经有4人回复
也请高人指点，帮忙看看每位评委的意见是什么？（50金币，回帖1金币）已经有84人回复
帮忙修改一段翻译！谢谢！已经有3人回复
求高手帮忙改一下英文摘要已经有12人回复
【求助】撒点金币请大家帮忙出主意，回国都带什么礼物啊已经有20人回复
急求，30分钟内翻译一段文字（药学），30分钟内完成6金币再追加50金币已经有1人回复
再求一段英译中，在线等，急，50金币已经有5人回复
【求助】10金币请帮忙修改一下MATLAB程序已经有9人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-03-23 02:25:08

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

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
帖子: 1180
在线: 354.8小时
虫号: 900839

引用回帖:

Originally posted by zhuwei04 at 2011-03-31 07:12:45:
第1. 你这样读了数据，怎么有h取成0的情况呢？

第2. 如果只是内存不够的问题，你用动态数组吧，把h的第2列和第3列分别存成两个2维数组Hia, Hib

（1）因为我把h定义为三维数组，第一位对应istep，第二维对应ia，第三位对应ib，因ia，ib只能取某些特定的值，所以这个三维数组h的三维取test.out文件中数据时就为1，取其他值就为0.比方说（以数据第一行为例），当istep=1，ia=758,ib=22时，此时对应的h为h(1,758,22)=1，也就是当istep=1，若ia=758但是ib=1，对应的h为h(1,758,1)就为0.不知道我这样解释清楚没有？
（2）可能是我定义的数组太大，h（5000,30000,800）。及使用动态数组也不行。

赞一下

回复此楼

13楼2011-04-01 01:51:45

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

查看全部 14 个回答

mplanck

至尊木虫 (职业作家)

应助: 0 (幼儿园)
金币: 22899.2
帖子: 3980
在线: 760.8小时
虫号: 468030

astringent(金币+5): 2011-04-25 19:59:27
astringent(金币+5): 2011-04-25 20:08:33

粗略一看，没懂你的意思。
你设的数组那么大，内存至少得10G以上，不能运行很正常...

赞一下

回复此楼

4楼2011-03-28 23:54:35

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

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
帖子: 1180
在线: 354.8小时
虫号: 900839

引用回帖:

Originally posted by mplanck at 2011-03-28 23:54:35:
粗略一看，没懂你的意思。
你设的数组那么大，内存至少得10G以上，不能运行很正常...

以我的第一行数据 1    758          22 为例，1代表istep，758代表ia，22代表ib。我想用函数将istep，ia，ib联系起来，只有当取我数据中一行上的数字时，定义的函数h=1，其他的h均为0.以第一行为例， istep=1，ia= 758，ib=22时，h=1.或者用多个函数也行，只要能完成后面循环中判断（ if(h(ntel)/=0) then）就行。
do ia=1,30000
do ib=1,800
      do istep=1,5000
            h(istep)=h(istep,ia,ib)
      enddo
      do ntel=1,nsteps
            if(h(ntel)/=0) then
            进行后面的程序
            -----------------
            endif
      enddo
      enddo
enddo

赞一下

回复此楼

5楼2011-03-29 03:05:47

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