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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求一个简单的读写文件的小程序。。。
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 1269  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿郑州大学085600求调剂 +9 吃的不少 2026-04-05 10/500 2026-04-05 21:02 by 学员8dgXkO
[考研] 求调剂，一志愿厦门大学，生物与医药，总分272，本科211 +3 Electron1cc 2026-04-01 4/200 2026-04-05 20:24 by lys0704
[考研] 生物与医药调剂 +4 十七sa 2026-04-05 4/200 2026-04-05 20:05 by lys0704
[考研] 329求调剂 +17 miaodesi 2026-04-02 20/1000 2026-04-05 18:33 by 蓝云思雨
[考研] 0860 求调剂 一志愿国科大 348 分 +3 WiiiP 2026-04-03 3/150 2026-04-05 17:43 by Ecowxq666！
[考研] 调剂 +3 好好读书。 2026-04-02 3/150 2026-04-05 13:02 by arrow8852
[考研] 数一英一274机械调剂 +5 星陨流霞 2026-04-04 6/300 2026-04-05 11:38 by arrow8852
[考研] 323求调剂（计算机视觉和大模型项目经历） +3 chaoxiicy 2026-03-31 3/150 2026-04-05 10:33 by zhq0425
[考研] 一志愿郑州大学材料与化工085600，求调剂 +24 吃的不少 2026-04-02 24/1200 2026-04-04 23:20 by 永字号
[考研] 本科211 分数293请求调剂 +4 莲菜就是藕吧 2026-04-01 4/200 2026-04-04 22:32 by hemengdong
[考研] 考研调剂 +5 四川王涛 2026-04-04 5/250 2026-04-04 22:18 by 啵啵啵0119
[考研] 一志愿211，化学学硕，310分，本科重点双非，求调剂 +11 努力奋斗112 2026-04-04 11/550 2026-04-04 20:51 by 蓝云思雨
[考研] 生物学308分求调剂（一志愿华东师大） +7 相信必会光芒万� 2026-04-02 7/350 2026-04-03 16:48 by rzh123456
[考研] 求调剂不挑专业 +3 xrh030412 2026-04-01 3/150 2026-04-03 14:40 by 氮气气气
[考研] 372分材料与化工（085600）一志愿湖南大学求调剂 +5 蓝笺片 2026-04-02 6/300 2026-04-02 21:37 by dongzh2009
[考研] 求调剂 302分初试 0854 +5 伶可乐 2026-04-02 5/250 2026-04-02 17:53 by 笔落锦州
[考研] 266求调剂 +4 学员97LZgn 2026-04-02 4/200 2026-04-02 13:03 by yulian1987
[考研] 085601英二数二求调剂 总分325 +4 余航航 2026-03-31 4/200 2026-03-31 17:38 by 唐沐儿
[考研] 262求调剂 +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[考研] 一志愿大连理工大学材料求调剂 +6 Gymno 2026-03-30 6/300 2026-03-31 07:26 by 无际的草原
信息提示
关闭
请填处理意见
关闭