| 查看: 1028 | 回复: 6 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
vuchiyuan木虫 (小有名气)
|
[求助]
求助：简单判断代码（Fortran语言） 已有1人参与
|
||
|
有如图1的文件，详见附件1（1.txt），文件中包含若干段（两千段左右）数据，每一段有个编号，如图1中圈出来的数字，数据每行两个实数，结束时有个“END”。 要求经过Fortran编程处理得到结果文件，如图2所示。结果文件第一行统计总共有多少段数据，如图2中的“102”；后面为每段数据的排列，包含3列数据，前两列与处理前数据相同，第三列为固定值“0”；在每段数据开始前一行为“x 0”(其中x表示该段数据的行数，0为固定值)，如图2中框出的数据。 请应助的朋友给出Fortran代码。  1.png  2.jpg |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 1.txt
2015-11-28 18:48:08, 2.19 M
» 猜你喜欢
基金申报
已经有5人回复
-
基金委咋了？2026年的指南还没有出来？
已经有7人回复
-
国自然申请面上模板最新2026版出了吗？
已经有17人回复
-
纳米粒子粒径的测量
已经有8人回复
-
疑惑？
已经有5人回复
-
计算机、0854电子信息（085401-058412）调剂
已经有5人回复
-
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
推荐一本书
已经有12人回复
-
常年博士招收(双一流，工科)
已经有4人回复
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
感谢参与，应助指数 +1
vuchiyuan: 金币+100, ★★★★★最佳答案, 在您提供的基础上自己改了一下，已很好解决，谢谢！ 2015-11-29 13:46:49
感谢参与，应助指数 +1
vuchiyuan: 金币+100, ★★★★★最佳答案, 在您提供的基础上自己改了一下，已很好解决，谢谢！ 2015-11-29 13:46:49
|
! 计算之前，先把原始数据在excel表中，把空格都填充了，本人将空格填充为999999 ! 先读一遍程序，找到开头是多少个END，就是几段，并找到对应的行数 ! 然后可以根据每个END对应的行数计算得到每段的个数，以及输出对应每段的数字 ! 最后根据需要，将999999变为空格 program main implicit none integer,parameter::n=99036 integer i,j,k,s,no,nodata,p integer,allocatable::num(  ,nums(real a(2) character(len=100) string open(21,file="I:\王琦ph值\test111.txt"  open(22,file="I:\王琦ph值\test111_result.txt" nodata=999999 ! **** 寻找END的个数及位置********* p=0 do i=1,n read(21,*) string if(string=="END" p=p+1end do rewind(21) allocate(num(p)) allocate(nums(p)) j=0 do i=1,n read(21,*) string if(string=="END" thenj=j+1 num(j)=i end if end do rewind(21) ! **** 计算每段的个数********* nums(1)=num(1)-2 do i=2,p nums(i)=num(i)-num(i-1)-2 end do write(22,"(3(1xi6))" p,(nodata,i=1,2)! **** 写入每段的个数以及每行数字********* s=1 do i=1,p write(22,"(3(1xi6))" nums(i),0,nodataread(21,*) do j=s+1,num(i)-1 read(21,*,end=200) no, a( write(22,"(2(1xf15.6),1xi6)" a(,0end do read(21,*) s=num(i)+1 end do 200 close(21) deallocate(num) deallocate(nums) end program |
3楼2015-11-29 00:27:13
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
2楼2015-11-28 22:49:58
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
4楼2015-11-29 00:29:13
vuchiyuan
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 2599.8
- 散金: 549
- 帖子: 143
- 在线: 135.2小时
- 虫号: 1555184
- 注册: 2011-12-28
- 性别: GG
- 专业: 河流海岸动力学与泥沙研究
5楼2015-11-29 12:01:23