| 查看: 1785 | 回复: 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 --- ---- ---- |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有6人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有6人回复
-
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【急】请大家帮忙看一下这个offer是否合乎要求，新手散光所有金币求助~~
已经有12人回复
- 帮忙修改一段我的翻译，好难翻啊555
已经有4人回复
- 也请高人指点，帮忙看看每位评委的意见是什么？（50金币，回帖1金币）
已经有84人回复
- 帮忙修改一段翻译！谢谢！
已经有3人回复
- 求高手帮忙改一下英文摘要
已经有12人回复
- 【求助】撒点金币请大家帮忙出主意，回国都带什么礼物啊
已经有20人回复
- 急求，30分钟内翻译一段文字（药学），30分钟内完成6金币再追加50金币
已经有1人回复
- 再求一段英译中，在线等，急，50金币
已经有5人回复
- 【求助】10金币请帮忙修改一下MATLAB程序
已经有9人回复
» 抢金币啦！回帖就可以得到:
-
2026年材料结构与力学性能国际会议（MSMP 2026
+1/877
-
2026年物理学、化学与数据分析国际会议 (PCDA 2026)
+1/860
-
2027年电气工程、自动化与应用工程国际会议（EEAE 2027）
+1/827
-
2027年生物医学、农业与可持续发展国际会议（BASD 2027）
+1/804
-
2027年计算机视觉、设计与非遗文化传播国际会议（CVDC 2027）
+1/778
-
香港中文大学（深圳）靳羽华教授交叉实验室高薪诚聘博士后（光致变色，光响应材料方向
+3/146
-
香港中文大学（深圳）靳羽华教授招募2027年全奖博士生-材料或有机化学
+3/140
-
《阿飞和他的那个女人》 —— 第四章
+1/90
-
南科大薛亚辉课题组诚聘离子输运、二维材料、原子力显微镜等方向“快响行动”博士生
+1/77
-
澳门大学孙鹏展博士课题组招收全奖博士研究生1名
+2/74
-
南方科技大学力航系急招收纳米材料、力学、机械等方向推免硕士研究生两名
+1/70
-
同济大学环境学院肖倩课题组招收博士研究生（资格审核制）
+1/44
-
哈工大（深圳）何自开团队诚招2027级化学工程与技术专业博士生
+1/36
-
宁波大学海运学院招电催化直博生
+1/29
-
北京理工大学集成电路与电子学院招聘 | 副研究员 | 博士后 | 科研助理
+1/17
-
北京理工大学集成电路与电子学院招聘 | 副研究员 | 博士后 | 科研助理
+1/15
-
大湾区大学姚瑶课题组2027届博士生招生 （与中山大学联合培养）
+1/6
-
【2027硕士招生】招收材料、化工、环境、冶金类硕士研究生
+1/5
-
澳门大学光电方向招收博士研究生
+1/3
-
吉林大学大学化学学院介电高分子课题组招收2027级博士生/硕士生
+1/2
|
以我的第一行数据 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
4楼2011-03-28 23:54:35
6楼2011-03-29 15:16:15
|
nstep可以写成5000， 对我的文件（new_total.out）的说明： 文件的格式为默认写入格式。 第一列代表ia，第二列ib，第三列istep（变化范围1-5000） 文件所在网址：http://good.gd/1078236.htm [ Last edited by astringent on 2011-3-30 at 05:47 ] |
7楼2011-03-30 05:44:34