| 查看: 472 | 回复: 4 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
yq2240711金虫 (正式写手)
|
[交流]
【求助】从哪个输出文件怎提取出频率的数据
|
||
| 请问计算频率后,从哪个输出文件怎提取出频率的数据? 能不能详细点，谢谢! |
回复此楼» 猜你喜欢
291 求调剂
已经有24人回复
-
284求调剂
已经有8人回复
-
309求调剂
已经有5人回复
-
求调剂
已经有9人回复
-
282，电气工程专业，求调剂，不挑专业
已经有7人回复
-
085404 298分求调剂
已经有7人回复
-
296求调剂
已经有5人回复
-
求调剂
已经有4人回复
-
中科院总分315求调剂
已经有6人回复
-
298求调剂
已经有11人回复
fanchen021
铁杆木虫 (正式写手)
- 应助: 7 (幼儿园)
- 金币: 7994.9
- 散金: 1844
- 红花: 4
- 帖子: 776
- 在线: 569小时
- 虫号: 773188
- 注册: 2009-05-18
- 专业: 理论和计算化学
★ ★
yq2240711(金币+1,VIP+0): 11-5 20:18
wuchenwf(金币+1,VIP+0):谢谢 11-5 23:03
yq2240711(金币+1,VIP+0): 11-5 20:18
wuchenwf(金币+1,VIP+0):谢谢 11-5 23:03
|
可以用下面的脚本 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' if 0; #;-*- Perl -*- use FindBin qw($Bin); $freqs = `grep 'THz' OUTCAR` ; @freqs = split /\n/ , $freqs ; $num = @freqs/2; open OUT , ">feq.dat" ; for($i=0; $i<$num; $i++){ $line = $freqs[$i] ; chomp($line) ; $line=~s/^\s+//g; @line=split /\s+/,$line; $f = $line[7],"\n" ; printf OUT "%20.6f \n",$f; printf "%20.6f \n",$f; } close OUT ; |
4楼2009-11-05 13:56:19
zhangfan2192
金虫 (著名写手)
- 应助: 9 (幼儿园)
- 金币: 1007.3
- 散金: 62
- 红花: 3
- 帖子: 1170
- 在线: 171.3小时
- 虫号: 648132
- 注册: 2008-11-07
- 性别: GG
- 专业: 理论和计算化学
2楼2009-11-05 10:51:32
★ ★
yq2240711(金币+1,VIP+0): 11-5 20:18
wuchenwf(金币+1,VIP+0):谢谢 11-5 23:03
yq2240711(金币+1,VIP+0): 11-5 20:18
wuchenwf(金币+1,VIP+0):谢谢 11-5 23:03
|
本帖内容被屏蔽 |
3楼2009-11-05 13:55:37
