应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求一个简单的读写文件的小程序。。。
51/1返回列表
查看: 1525  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

亍寞

金虫 (小有名气)

[求助] 求一个简单的读写文件的小程序。。。

觉得自己永远都学不会编程。。。。永远都不知道咋把逻辑变成语言的感觉。。。

输入文件是这样格式的：
  -9.2650000  11.1990000   6.4200000  -8.4100000  13.0720000   5.8390000
  -8.7520000  13.8680000   5.1770000  -8.3500000  13.5640000   7.2930000
  -9.0160000  12.9700000   7.9120000  -7.3330000  13.4440000   7.6560000
  -8.6820000  15.0320000   7.5110000  -9.3450000  15.6300000   6.6390000
  -8.2490000  15.5240000   8.5750000  -7.0250000  12.6330000   5.3880000
所有数据的格式都一样，横着三个一组xyz坐标，一行就是两个原子。然后现在想要写一个程序，如果某个原子距离原点的距离大于20，那么就把这个原子的标号输出出来一个txt。。。

具体拿上面的数据说的话，就是第一行是原子1，2，第二行是原子3，4。。。然后如果原子3，5距离原点距离大于10的话，那就输出一个txt，内容就是3，5.。。。

求助。。。感谢。。。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-10-23 13:46:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

锐利的碎片

木虫 (正式写手)

star watcher

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
亍寞: 金币+30, ★★★★★最佳答案, 请。。。接受我深沉的膜拜。。。。。。 2013-10-23 15:04:52
这点事情用fortran就是大炮打蚊子了。用bash就好了
cat test.txt | awk -v d=20 '(sqrt($1**2 + $2**2 + $3**2) > d) {print 2*NR - 1} (sqrt($4**2 + $5**2 + $6**2) > d) {print 2*NR}' > out.txt
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

亍寞
2楼2013-10-23 14:41:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

亍寞

金虫 (小有名气)
送红花一朵
引用回帖:
2楼: Originally posted by 锐利的碎片 at 2013-10-23 14:41:08
这点事情用fortran就是大炮打蚊子了。用bash就好了
cat test.txt | awk -v d=20 '(sqrt($1**2 + $2**2 + $3**2) > d) {print 2*NR - 1} (sqrt($4**2 + $5**2 + $6**2) > d) {print 2*NR}' > out.txt

不好意思。。。能再问一下么，这里面的数据都是水分子，三个一组，如果我想读数据的时候不是每行都判断，而是只判断第一行的前三列，第二行的後三列，第四行的前三列，第五行的後三列，以此类推。。。。。。如果这个值大于20就输出这个行号和后面的三个数字，来保证一个水分子不会被从中间拆开。。。这个应该怎么改写呢？
稍微查了一下还是没找到awk关于这个的做法。。。万分感激！
赞一下 回复此楼
3楼2013-10-24 14:16:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

锐利的碎片

木虫 (正式写手)

star watcher
引用回帖:
3楼: Originally posted by 亍寞 at 2013-10-24 14:16:45
不好意思。。。能再问一下么，这里面的数据都是水分子，三个一组，如果我想读数据的时候不是每行都判断，而是只判断第一行的前三列，第二行的後三列，第四行的前三列，第五行的後三列，以此类推。。。。。。如果这 ...

cat test.txt | awk '{print $1, $2, $3; print $4, $5, $6}' | awk -v d=20 'NR%3 == 1 && sqrt($1**2+$2**2+$3**2)>d'
先整理成一行一个原子再判断。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

亍寞
4楼2013-10-24 14:39:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

亍寞

金虫 (小有名气)
送红花一朵
引用回帖:
4楼: Originally posted by 锐利的碎片 at 2013-10-24 14:39:26
cat test.txt | awk '{print $1, $2, $3; print $4, $5, $6}' | awk -v d=20 'NR%3 == 1 && sqrt($1**2+$2**2+$3**2)>d'
先整理成一行一个原子再判断。...

极其感谢！！！
回复此楼
5楼2013-10-24 17:02:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 亍寞 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 2rKfVQg2jQww 2026-11-06 14/700 2026-11-09 04:20 by l48hFd8Nwae2
[论文投稿] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 11/550 2026-11-09 04:09 by l48hFd8Nwae2
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 03:58 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +10 ncTVBM6AOJHF 2026-11-04 22/1100 2026-11-06 17:18 by 5sJFDKp2kwuI
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 7/350 2026-11-06 16:43 by 5sJFDKp2kwuI
[考博] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +6 ELBZ6WwEaRj6 2026-11-05 8/400 2026-11-06 16:34 by 5sJFDKp2kwuI
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +6 ELBZ6WwEaRj6 2026-11-04 14/700 2026-11-06 16:32 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +7 ncTVBM6AOJHF 2026-11-04 17/850 2026-11-06 13:47 by BkA9Bi5cMhkD
[硕博家园] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 09:01 by 2lRNluKrJpwL
[硕博家园] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 12/600 2026-11-06 05:32 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 04:47 by qL1cU46YIdK0
[硕博家园] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-04 8/400 2026-11-06 02:24 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +6 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-06 01:51 by qL1cU46YIdK0
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 01:42 by qL1cU46YIdK0
信息提示
关闭
请填处理意见
关闭