24小时热门版块排行榜    

查看: 820  |  回复: 5

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

[求助] 如何将连续列的数对应的最小值提取出

本人刚刚接触Fortran代码,想将图片所有1,2,3,4……对应的那一列最小值提取出,比如第3个红色框的部分,写入文件中变成:
Step number  39  scan point     1  E=  -571.251770020
Step number   5  scan point      2  E=  -571.252807617
Step number   4  scan point     3  E=  -571.253234863
……
想求助大家代码应该怎么编写?如何将连续列的数对应的最小值提取出
图片1.jpg
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : result.txt
  • 2015-11-11 15:49:24, 546.88 K

» 猜你喜欢

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

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

wxws.2008

木虫 (正式写手)

读2次,后这次减前一次的,如果不是1,输出前一次的,如此循环,直到文本结束

发自小木虫Android客户端
2楼2015-11-11 22:17:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

引用回帖:
2楼: Originally posted by wxws.2008 at 2015-11-11 22:17:03
读2次,后这次减前一次的,如果不是1,输出前一次的,如此循环,直到文本结束

我可能写的不太明确,我的意思是红框那里的所有的1中,找出E最小的,然后所有的2中,找到E最小的,然后所有的3中,找到最小的……依次类推,找到后,将1中最小的那一行,2中最小的那一行,3中最小的那一行……全部打印至文件中。
Chemistry
3楼2015-11-11 22:42:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxws.2008

木虫 (正式写手)

引用回帖:
3楼: Originally posted by 7152075 at 2015-11-11 22:42:54
我可能写的不太明确,我的意思是红框那里的所有的1中,找出E最小的,然后所有的2中,找到E最小的,然后所有的3中,找到最小的……依次类推,找到后,将1中最小的那一行,2中最小的那一行,3中最小的那一行……全部 ...

先设置一个足够大的数组,把数据读取完,然后循环1,2,3,4…… ,用pack语句提取出取1,2,3,4,……的数组,然后用minval函数得到最小值,lockmin函数得到最小值对应的位置,然后输出
4楼2015-11-12 09:30:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxws.2008

木虫 (正式写手)

引用回帖:
4楼: Originally posted by wxws.2008 at 2015-11-12 09:30:08
先设置一个足够大的数组,把数据读取完,然后循环1,2,3,4…… ,用pack语句提取出取1,2,3,4,……的数组,然后用minval函数得到最小值,lockmin函数得到最小值对应的位置,然后输出...

想起来了,直接用minval语句就可以
5楼2015-11-12 09:36:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

引用回帖:
4楼: Originally posted by wxws.2008 at 2015-11-12 09:30:08
先设置一个足够大的数组,把数据读取完,然后循环1,2,3,4…… ,用pack语句提取出取1,2,3,4,……的数组,然后用minval函数得到最小值,lockmin函数得到最小值对应的位置,然后输出...

谢谢你热心的回复。

发自小木虫Android客户端
Chemistry
6楼2015-11-13 08:14:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 7152075 的主题更新
信息提示
请填处理意见