| 查看: 478 | 回复: 4 | |||
| 当前主题已经存档。 | |||
yq2240711金虫 (正式写手)
|
[交流]
【求助】从哪个输出文件怎提取出频率的数据
|
||
| 请问计算频率后,从哪个输出文件怎提取出频率的数据? 能不能详细点，谢谢! |
回复此楼» 猜你喜欢
300求调剂
已经有12人回复
-
材料相关专业344求调剂双非工科学校或课题组
已经有26人回复
-
291求调剂
已经有10人回复
-
一志愿沪9，326求生物学调剂
已经有12人回复
-
0854求调剂
已经有26人回复
-
生物学调剂
已经有10人回复
-
求调剂
已经有3人回复
-
320求调剂
已经有5人回复
-
接受任何调剂
已经有7人回复
-
化学070300 求调剂
已经有29人回复
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
