24小时热门版块排行榜    

CyRhmU.jpeg
查看: 416  |  回复: 4
当前主题已经存档。

yq2240711

金虫 (正式写手)

[交流] 【求助】从哪个输出文件怎提取出频率的数据

请问计算频率后,从哪个输出文件怎提取出频率的数据? 能不能详细点,谢谢!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangfan2192

金虫 (著名写手)


wuchenwf(金币+1,VIP+0):谢谢 11-5 23:02
问题不清楚 也不说明是什么软件
要是vasp的话
用grep “cm-1”  OUTCAR  命令可以看到 频率。
相逢是缘!
2楼2009-11-05 10:51:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhxd1028

禁虫 (小有名气)

★ ★
yq2240711(金币+1,VIP+0): 11-5 20:18
wuchenwf(金币+1,VIP+0):谢谢 11-5 23:03
本帖内容被屏蔽

3楼2009-11-05 13:55:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fanchen021

铁杆木虫 (正式写手)

★ ★
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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fanchen021

铁杆木虫 (正式写手)

★ ★
yq2240711(金币+1,VIP+0): 11-5 20:18
wuchenwf(金币+1,VIP+0):谢谢 11-5 23:03
虚频显示的就是0
5楼2009-11-05 13:57:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yq2240711 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见