| 查看: 434 | 回复: 4 | |||
| 当前主题已经存档。 | |||
yq2240711金虫 (正式写手)
|
[交流]
【求助】从哪个输出文件怎提取出频率的数据
|
||
| 请问计算频率后,从哪个输出文件怎提取出频率的数据? 能不能详细点，谢谢! |
回复此楼» 猜你喜欢
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有4人回复
-
酰胺脱乙酰基
已经有9人回复
-
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优
已经有5人回复
-
有70后还继续奋斗在职场上的吗？
已经有6人回复
-
博士延得我，科研能力直往上蹿
已经有7人回复
-
退学或坚持读
已经有27人回复
-
面上基金申报没有其他的参与者成吗
已经有5人回复
-
遇见不省心的家人很难过
已经有22人回复
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
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
fanchen021
铁杆木虫 (正式写手)
- 应助: 7 (幼儿园)
- 金币: 7994.9
- 散金: 1844
- 红花: 4
- 帖子: 776
- 在线: 569小时
- 虫号: 773188
- 注册: 2009-05-18
- 专业: 理论和计算化学
5楼2009-11-05 13:57:55