24小时热门版块排行榜    

查看: 1250  |  回复: 2
【奖励】 本帖被评价2次,作者cenwanglai增加金币 1.5

[资源] 【原创】Linux script cell2poscar.new for MS.cell to POSCAR

#把该文件与*.cell文件保存在linux系统下同一目录中,命名为cell2poscar.new.运行dos2unix cell2poscar.new和chmod 777 cell2poscar.new.
#*.cell为MS running后立即停止中生成的隐藏文件,显示隐藏文件夹后就可以看到。
#运行本脚本前,需要删除.cell文件%ENDBLOCK POSITIONS_FRAC后面的所有内容,运行dos2unix *.cell.
#运行时确保当前目录下仅有一个.cell文件。
#在命令提示符下输入"./cell2poscar.new"(引号内部分为命令)回车,生成文件为poscarfromcell.并询问生成POSCAR.
#有好的修改建议或脚本请发邮件给:cenwanglai@163.com
rm -i poscarfromcell
echo "SYSTEM COMMENTS">>poscarfromcell
echo 1 >>poscarfromcell
#查找并输出格矢坐标
cat *.cell | grep -e '^[ ]\+[0-9]\+'>>poscarfromcell
#数氧原子个数
L=$(grep -cw "O" *.cell)
#数铈原子个数
M=$(grep -cw "Ce" *.cell)
#数X原子个数,如果需要,删掉下一行开始的#,并替换“X”
#N=$(grep -cw "X" *.cell)
#输入各类原子个数,如果需要,下行中增加$N
echo $L $M >> poscarfromcell
echo "Selective Dynamic" >>poscarfromcell
echo "Direct" >>poscarfromcell
#找氧原子O坐标。高于0.09的原子三个方向弛豫;低于0.09的原子固定。
cat *.cell | awk '{if($1=="O" && $4 <=0.09)  {print $2,$3,$4,"F F F"};if($1=="O"&& $4>0.09){print $2,$3,$4,"T T T"}}'>>poscarfromcell
#找Ce原子坐标。根据实际情况替换"Ce"
cat *.cell | awk '{if($1=="Ce" && $4 <="0.09"  {print $2,$3,$4,"F F F"};if($1=="Ce"&& $4>"0.09"{print $2,$3,$4,"T T T"}}'>>poscarfromcell
cp -i poscarfromcell POSCAR
#找X原子坐标,如果需要,删掉下一行开头的#,根据实际情况替换"X"
#cat *.cell | awk '$1=="X" {print $2,$3,$4,"T T T"}'>>poscarfromcell

[ Last edited by cenwanglai on 2010-4-30 at 20:19 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

marklau

银虫 (小有名气)


★★★ 三星级,支持鼓励



great post.
2楼2010-04-30 21:58:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
2010-05-08 21:37   回复  
 
相关版块跳转 我要订阅楼主 cenwanglai 的主题更新
☆ 无星级 ★ 一星级 ★★★ 三星级 ★★★★★ 五星级
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 3n8v2C8RimXI 2026-09-13 3/150 2026-09-16 02:38 by DgNGHc3h5tPl
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +7 3n8v2C8RimXI 2026-09-13 7/350 2026-09-16 02:35 by DgNGHc3h5tPl
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +7 QUjhNVAcOSff 2026-09-13 8/400 2026-09-16 02:23 by DgNGHc3h5tPl
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +6 两三岁ss 2026-09-14 6/300 2026-09-15 20:17 by 只吃肉葡萄
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 Aj1rhIDL5ixY 2026-09-14 3/150 2026-09-15 20:14 by zNcEhTcH7ihq
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 40ms4Wlo4umh 2026-09-14 3/150 2026-09-15 19:11 by CgyNCDVNhGVg
[硕博家园] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 40ms4Wlo4umh 2026-09-14 3/150 2026-09-15 18:59 by CgyNCDVNhGVg
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 17:39 by CgyNCDVNhGVg
[考博] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +7 s3fFTmArrBt6 2026-09-14 7/350 2026-09-15 16:23 by CgyNCDVNhGVg
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 s3fFTmArrBt6 2026-09-13 6/300 2026-09-15 15:35 by CgyNCDVNhGVg
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 LwdutQ8HoqWP 2026-09-13 3/150 2026-09-15 15:27 by CgyNCDVNhGVg
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 QUjhNVAcOSff 2026-09-13 7/350 2026-09-15 14:22 by VMDqgnlKimtZ
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +6 QUjhNVAcOSff 2026-09-13 7/350 2026-09-15 14:13 by VMDqgnlKimtZ
[公派出国] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +7 QUjhNVAcOSff 2026-09-13 9/450 2026-09-15 14:10 by VMDqgnlKimtZ
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 23jxep3nCNZb 2026-09-14 3/150 2026-09-15 09:38 by VMDqgnlKimtZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 08:14 by C79jjtjAKjEn
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 s3fFTmArrBt6 2026-09-13 5/250 2026-09-15 06:49 by 5BDX0d0WFp7t
[博后之家] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-13 4/200 2026-09-14 23:24 by vZfe6xYu34yj
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +5 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-14 22:25 by vZfe6xYu34yj
[考博] 西北工业大学材料学院电化学传感与催化课题组招收2027年推免研究生、博士生、博士后 +3 马方园 2026-09-10 4/200 2026-09-14 09:29 by Chem张zz
信息提示
请填处理意见