| 查看: 1429 | 回复: 13 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】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 --- ---- ---- |
回复此楼» 猜你喜欢
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【急】请大家帮忙看一下这个offer是否合乎要求，新手散光所有金币求助~~
已经有12人回复
- 帮忙修改一段我的翻译，好难翻啊555
已经有4人回复
- 也请高人指点，帮忙看看每位评委的意见是什么？（50金币，回帖1金币）
已经有84人回复
- 帮忙修改一段翻译！谢谢！
已经有3人回复
- 求高手帮忙改一下英文摘要
已经有12人回复
- 【求助】撒点金币请大家帮忙出主意，回国都带什么礼物啊
已经有20人回复
- 急求，30分钟内翻译一段文字（药学），30分钟内完成6金币再追加50金币
已经有1人回复
- 再求一段英译中，在线等，急，50金币
已经有5人回复
- 【求助】10金币请帮忙修改一下MATLAB程序
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
医学超声影像负责人招聘-中国科学院赣江创新研究院
+1/975
-
西湖大学2026年秋季入学物理学、光学、电子信息方向博士生有名额速来！！！
+2/224
-
大连海事大学轮机学院博士名额1个
+1/176
-
石河子大学化学化工学院CJ学者领衔分子炼油团队招收博士、硕士。【接收调剂】
+1/83
-
一个陌生女人的来信
+1/68
-
上海理工大学2026年系统科学学科海外骨干教师招聘启事
+2/52
-
国家级青年人才课题组招收2026级硕士研究生
+1/37
-
海南大学海洋技术与装备学院-科研助理招聘（可读博）--膜分离水处理方向
+1/36
-
中国农业大学安杰课题组招聘科研助理（表现优异者可提供读博机会）
+1/27
-
2026年天津科技大学“新能源催化与膜材料团队”研究生招生
+1/22
-
【青岛大学】2026年生物与医药申请考核制博士生招生（含少数民族骨干人才）
+1/10
-
中科院深圳先进技术研究院招联培学生 -- 多中心大队列数据已就绪，助你快车道产出成果
+1/9
-
墨尔本大学(QS13)招全奖博士、CSC资助博士/访问学者(生物医学材料/器官芯片等方向)
+1/8
-
怎么发布了求助贴了， 一发就转到删除栏了
+1/6
-
中北大学冯瑞教授*开山大弟子*招募
+1/6
-
南京大学能源与资源学院徐加陵课题组招聘：科研助理、硕士生、博士生
+1/4
-
澳科大药学院诚招2026年秋季药剂学/生物材料硕士研究生（2026年3月5日报名截止）
+1/4
-
墨尔本大学(QS13)急招CSC博士(补齐全奖)/访问学者/博士后(生物医学材料/器官芯片)
+1/3
-
德国图宾根大学诚招全奖岗位制博士（地下流固化学反应耦合数值模拟方向）
+1/3
-
国内树枝状聚合物现在进入量产了吗？
+1/3
14楼2011-04-01 09:48:18
4楼2011-03-28 23:54:35
|
以我的第一行数据 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
6楼2011-03-29 15:16:15