24小时热门版块排行榜    

Znn3bq.jpeg
查看: 965  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 上海大学实验技术岗位非升即走 +9 嘻嘻哈哈乐呵呵 2026-05-15 9/450 2026-05-19 01:47 by jurkat.1640
[基金申请] 评审有感 +6 popular289 2026-05-18 11/550 2026-05-18 22:40 by iaeyuan
[基金申请] 面上本子正文33页,违规吗?会被低分嘛? +8 1234567wang 2026-05-17 10/500 2026-05-18 18:52 by zzahkj
[基金申请] 国自然上会要求 +5 无名者登山 2026-05-18 9/450 2026-05-18 17:50 by BlakeReary
[基金申请] 今年审到国自然15份,谈谈感受 +16 国自然国社科中 2026-05-17 16/800 2026-05-18 14:58 by gy116024
[硕博家园] 考博自荐 +5 科研狗111 2026-05-13 6/300 2026-05-18 11:22 by 糊糊涂涂好
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 ky2p12rrjj 2026-05-15 4/200 2026-05-17 19:47 by Equinoxhua
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 l7k6xnh0yc 2026-05-14 5/250 2026-05-17 19:39 by Equinoxhua
[考博] 2026博士还有哪些学校有名额 +6 小王求读研 2026-05-15 7/350 2026-05-17 16:54 by 知音湖畔
[基金申请] 这年头没有找到涵评专家,还有中面上的可能吗 +13 dd921ww 2026-05-12 16/800 2026-05-17 12:38 by 于轩
[考博] 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,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-16 17:45 by j6b2pdz07o
[有机交流] 如何实现卤原子转化 +3 BT20230424 2026-05-15 5/250 2026-05-16 16:20 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
[考博] 26应届毕业生考博求助 +3 wo一定上岸 2026-05-13 3/150 2026-05-14 21:47 by 明海天涯
信息提示
请填处理意见