24小时热门版块排行榜    

Znn3bq.jpeg
查看: 966  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 评审有感 +7 popular289 2026-05-18 12/600 2026-05-19 05:02 by redmoonzpc
[教师之家] 上海大学实验技术岗位非升即走 +9 嘻嘻哈哈乐呵呵 2026-05-15 9/450 2026-05-19 01:47 by jurkat.1640
[考博] 云南大学材料与能源学院解琳课题组钙钛矿博士招生 +3 光伏爱好者 2026-05-17 4/200 2026-05-19 01:19 by 风起于浮萍
[基金申请] 面上本子正文33页,违规吗?会被低分嘛? +8 1234567wang 2026-05-17 10/500 2026-05-18 18:52 by zzahkj
[硕博家园] 考博自荐 +5 科研狗111 2026-05-13 6/300 2026-05-18 11:22 by 糊糊涂涂好
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 7/350 2026-05-17 19:42 by Equinoxhua
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 5/250 2026-05-17 18:39 by Equinoxhua
[考博] 26/27博士推荐 +3 1木头人13949 2026-05-13 3/150 2026-05-17 09:41 by YuY66
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 4/200 2026-05-17 08:06 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:31 by 11n4dfd8yn
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:37 by ue3ir18jc3
[高分子] 本人最近太闲了,谁有问题可以提,每天会统一回复 +9 一切都是空工 2026-05-12 20/1000 2026-05-16 19:52 by Equinoxhua
[有机交流] 求有机合成大神指点三硫酸乙烯酯(CAS:2793408-99-6)的合成路线 30+3 Leekmid 2026-05-13 10/500 2026-05-16 16:37 by czyzsu
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-16 13:57 by vcdazktkjx
[文学芳草园] 风把牡丹吹跑了 +5 myrtle 2026-05-12 9/450 2026-05-15 15:27 by myrtle
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
[考博] 26应届毕业生考博求助 +3 wo一定上岸 2026-05-13 3/150 2026-05-14 21:47 by 明海天涯
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
信息提示
请填处理意见