| 查看: 2897 | 回复: 12 | |||
| 【奖励】 本帖被评价10次，作者小虫009增加金币 9.2 个 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[资源]
【分享】一个将CASTEP的.cell文件转换为POSCAR的简单脚本
|
|||
|
在CASTEP下建立好结构模型，保存文件，找到*.cell文件（存有结构信息） 拷贝到LINUX下，输入perl cell2poscar.pl 或者将 cell2poscar.pl放在~/bin下，输入chmod +x cell2poscar.pl转为可执行形式,直接输入cell2poscar.cell 目前只是半成品，生成的POSCAR没有告诉原子数，可以自己手动加上去，不支持Selective模式 不过基本达到转换目的。 哎偶的perl水平太太菜了，希望各位高手多提宝贵意见!  cell2poscar.pl脚本内容： eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' if 0; #;-*- Perl -*- # used to convert .cell(Castep) to POSCAR(vasp) # # usage: cell2poscar.pl # @args=@ARGV; @args==1 || die "usage: cell2poscar.pl open (IN,@args[0]) || die ("Can't open the file $!"  ;open (OUT,">POSCAR" ;print " Please input the first line of your POSCAR\n"; $filename= print " Plesse tell me what you want for (Direct) or (Selective dynamic) \n"; $Direct_or_selectivedynamic="Direct"; chomp($yourchose= if ($yourchose=~ m/^(d|D)/) {$Direct_or_selectivedynamic="Direct";} elsif($yourchose=~m/^(s|S)/) {$Direct_or_selectivedynamic="Selective dynamic";} else{$Direct_or_selectivedynamic="Direct";} $i=1; while( { @header[0]=$filename; @header[1]="1\n"; if (/\%BLOCK LATTICE_CART/) { $_="\n";} elsif (/\%ENDBLOCK POSITIONS_FRAC/) { $_="\n"; last;} elsif (/\%ENDBLOCK LATTICE_CART/) {$_=" ";} elsif (/\%BLOCK POSITIONS_FRAC/) {@header[6]="$Direct_or_selectivedynamic\n"; $i++;} else { if(/[a-z]/i){ s/[a-z][a-z]//i;@header[$i+1]=$_; $i++;} else{@header[$i+1]=$_; $i++;} } } print OUT @header; close OUT; close IN; [ Last edited by zxzj05 on 2009-12-4 at 21:42 ] |
回复此楼» 收录本帖的淘帖专辑推荐
 VASP资料 |
» 猜你喜欢
急需审稿人！！！
已经有3人回复
-
申博/考博
已经有8人回复
-
一志愿A区211，22408 321求调剂
已经有8人回复
-
295分求调剂
已经有6人回复
-
一志愿中科大材料与化工，353分还有调剂学校吗
已经有13人回复
-
085600材料与化工调剂
已经有6人回复
-
期刊推荐
已经有5人回复
-
有没有接收比较快的sci期刊呀，最好在一个月之内的，研三孩子求毕业
已经有7人回复
-
又一批高校组建人工智能学院 师资行吗 不是骗人吗
已经有4人回复
-
337求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 如何在CASTEP 中建立一个氧气分子的结构
已经有16人回复
- 同一个原胞用vasp和castep结构优化后为什么能量差距很大
已经有6人回复
- 关于计算完后 输出文件 _BandStr.castep文件里内容的疑问
已经有4人回复
- 【求助】如何根据cell文件写poscar
已经有11人回复
- 【求助】castep计算应力应变曲线结果文件中的两个stress tensor
已经有5人回复
- 【原创】将POSCAR转化为cif文件的一个脚本
已经有145人回复
- 【原创】通过CASTEP产生POSCAR文件【已搜索“CASTEP”+“POSCAR”，无重复】
已经有20人回复
4楼2009-12-05 00:08:35
2楼2009-12-04 21:37:14
9楼2010-02-05 04:52:29
13楼2014-10-20 09:58:05
简单回复
0303deer8楼
2009-12-07 10:16
回复
谢谢分享！
5