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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求一个简单的读写文件的小程序。。。
51/1返回列表
查看: 1254  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 国自科面上基金字体 +5 iwuli 2026-03-12 6/300 2026-03-16 13:13 by Kamiu_MK
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 5/250 2026-03-16 10:50 by 我可以上岸的对�
[考研] 材料工程327求调剂 +3 xiaohe12w 2026-03-11 3/150 2026-03-14 20:20 by ms629
[基金申请] 现在如何回避去年的某一个专家，不知道名字 +3 zk200107 2026-03-12 6/300 2026-03-14 17:13 by zk200107
[考研] 材料与化工（0856）304求B区调剂 +7 邱gl 2026-03-10 11/550 2026-03-14 12:18 by 邱gl
[考研] 308求调剂 +4 是Lupa啊 2026-03-09 4/200 2026-03-14 02:06 by tranquil_ya
[考研] 一志愿天津大学，英一数二305分求调剂，四六级已过 +8 小小番的茄 2026-03-09 8/400 2026-03-14 01:53 by JourneyLucky
[考研] 295复试调剂 +5 简木ChuFront 2026-03-09 5/250 2026-03-14 01:29 by JourneyLucky
[考研] 云南财经大学信息学院计算机学硕专硕学位点 +3 zjptai 2026-03-10 5/250 2026-03-14 01:23 by 飞行琦
[考研] 调剂 +3 13853210211 2026-03-10 3/150 2026-03-14 00:47 by JourneyLucky
[考研] 材料371求调剂 +9 鳄鱼? 2026-03-11 11/550 2026-03-13 22:53 by JourneyLucky
[考研] 材料与化工304求B区调剂 +5 邱gl 2026-03-11 6/300 2026-03-13 22:37 by JourneyLucky
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 5/250 2026-03-13 22:06 by 星空星月
[考研] 材料工程调剂 +9 咪咪空空 2026-03-12 9/450 2026-03-13 22:05 by 星空星月
[考研] 290求调剂 +7 ADT 2026-03-12 7/350 2026-03-13 15:17 by JourneyLucky
[考研] 0856化工原理 +6 z2839474511 2026-03-10 6/300 2026-03-13 10:41 by houyaoxu
[考研] 333求调剂 +3 152697 2026-03-12 4/200 2026-03-13 07:08 by Iveryant
[考研] 279求调剂 +3 莫xiao 2026-03-10 4/200 2026-03-11 08:06 by 斩魂滴兔子！
[考研] 298求调剂 +3 Vv呀！ 2026-03-10 3/150 2026-03-10 22:40 by 剑诗杜康
[考研] 0703化学调剂 +3 三dd. 2026-03-10 3/150 2026-03-10 15:45 by peike
信息提示
关闭
请填处理意见
关闭