版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

fly_elephan

银虫 (小有名气)

1ST强帖: 1
应助: 3 (幼儿园)
金币: 268.4
散金: 35
红花: 7
帖子: 219
在线: 124.2小时
虫号: 1177420
注册: 2010-12-25
性别: GG
专业: 电路与系统

[交流] vasp计算结果处理态密度要用到的程序已有7人参与

在材料电学特性的研究中，能带和态密度是我们最关心的，下面的这个程序可以用于vasp计算结果的处理，可以分离出总态密度和分态密度，这个程序是我们研究所用了很久的，绝对没问题，有资源大家共享，欢迎下载。
#! /bin/ksh
# Script to break the VASP DOSCAR file into segments for
# each atomic site.
# JMS NRL 5/0/02

# Modified to also align the Fermi level from the ground state
# to E=0.0
# JMS NRL 6/19/02

# Executables reside here
BIN=~/tzyy/AlP/swnt10

if [ $# -ne 0 ]; then
echo "Usage: split_dos"
exit 2
fi

# Script to split the DOSCAR file into the atomic
# projections labeled by atom number
dosfile=DOSCAR
outfile=OUTCAR
infile=INCAR

# Token for splitting the files
token=$(sed -n '6 p' $dosfile | awk '{print $1}')

# Number of points
nl=$(sed -n '6 p' $dosfile | awk '{print $3}')

# Number of atoms
natom=$(sed -n '1 p' $dosfile | awk '{print $1}')

# Get the Fermi level if the OUTCAR file is present,
# else we set it to zero.
if [ -a $outfile ]; then
echo "The" $outfile "exists, we use it to get the Fermi level,"
echo "the RWIGS tag and the number of spins."
efermi=$(grep "E-fermi" $outfile | tail -1 | awk '{print $3}')
echo "Fermi level:" $efermi
nspin=$(grep "ISPIN" $outfile | tail -1 | awk '{print $3}')
if [ $nspin -eq 2 ]; then
echo "Spin polarized calculation"
else
echo "Unpolarized calculation"
fi

# 2.a
# JMS 2/3/03 Modified to accept specification by LORBIT token.
#
lorbit=$(grep "LORBIT" $outfile | tail -1 | awk '{print $3}')
if [ $lorbit -ge 10 ]; then
      echo "LORBIT > 10"
      echo "WARNING: not completely test for vasp.4.*"
echo "Use at your own risk. Please check results for consistency."
form=1
else
# 2.a
rwigs=$(grep "RWIGS" $outfile | tail -1 | awk '{print $3}' | sed 's/\.//g')
if [ $rwigs -eq -100 ]; then
      echo "RWIGS token not set"
      form=0
else
      echo "RWIGS token set"
      form=1
fi
# 2.a
fi
# 2.a

else
echo "The" $outfile "does not exist, we set the Fermi level to 0"
echo "assume an unpolarized calculation, and RWIGS not set"
form=0
nspin=1
efermi=0.0
fi

# If the outcar file is not present and you wish to set something by hand
# you should do it here. Uncomment the tokens below and set them by hand.

#efermi=2.255
#form=
#nspin=

# Get the atomic coordinates
$BIN/vp >| tmp.dat
tail -$natom tmp.dat | awk '{printf "%s %12.8f %12.8f %12.8f \n", "#", $2, $3, $4}' >| tmp.dat2

# Total is first DOS
if [ $form -eq 0 ]; then
i=0
else
i=0
fi

start=7
end=$((start+nl-1))
#echo $start $end
#exit 0
rm -f DOS0
if [ $form -eq 1 ]; then

while [ $i -le $natom ]; do

#echo $i $start $end

if [ $i -gt 0 ]; then
      sed -n ''$i' p' tmp.dat2 >| DOS$i
fi

if [ $i -gt 0 ]; then

# Atomic projected DOS
      if [ $nspin -eq 2 ]; then
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f %12.8f %12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, -1*$3, $4, -1*$5, $6, -1*$7}' >> DOS$i
      else
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, $3, $4 }' >> DOS$i
      fi

else

# Total DOS
      if [ $nspin -eq 2 ]; then
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, -1*$3, $4, -1*$5 }' >> DOS$i
      else
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, $3 }' >> DOS$i
      fi

      fi

start=$((end+2))
end=$((start+nl-1))
i=$((i+1))
done

else

while [ $i -le 0 ]; do

#echo $i $start $end

if [ $i -gt 0 ]; then
      sed -n ''$i' p' tmp.dat2 >| DOS$i
fi

if [ $i -gt 0 ]; then

# Atomic projected DOS
      if [ $nspin -eq 2 ]; then
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f %12.8f %12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, -1*$3, $4, -1*$5, $6, -1*$7}' >> DOS$i
      else
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, $3, $4 }' >> DOS$i
      fi

else

# Total DOS
      if [ $nspin -eq 2 ]; then
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, -1*$3, $4, -1*$5 }' >> DOS$i
      else
sed -n ''$start','$end' p' $dosfile | awk '{printf "%12.8f %12.8f %12.8f \n", $1+(-1)*'$efermi', $2, $3 }' >> DOS$i
      fi

      fi

start=$((end+2))
end=$((start+nl-1))
i=$((i+1))
done

fi

exit 0

回复此楼

» 猜你喜欢

070300化学求调剂已经有9人回复
085404 22408 315分已经有6人回复
材料与化工272求调剂已经有22人回复
347求调剂已经有10人回复
354求调剂已经有4人回复
一志愿华东理工大学，080500学硕，317分，求调剂已经有4人回复
一志愿a区211，085601-307分求调剂已经有11人回复
284求调剂已经有7人回复
求调剂：085600材料与化工，考材科基，总分319 已经有18人回复
362求调剂已经有7人回复

» 本主题相关商家推荐: (我也要在这里推广)

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2011-05-30 10:09:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

wujing110

禁虫 (正式写手)

★
小木虫(金币+0.5):给个红包，谢谢回帖

本帖内容被屏蔽

3楼2011-11-14 11:21:03

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 19 个回答

cenwanglai

荣誉版主 (知名作家)

老和山猥琐派九段

1ST强帖: 5
应助: 46 (小学生)
贵宾: 8.842
金币: 7440.4
散金: 9654
红花: 118
沙发: 23
帖子: 5306
在线: 1961.4小时
虫号: 537452
注册: 2008-04-01
性别: GG
专业: 理论和计算化学
管辖: 仿真模拟

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
zzy870720z(金币+2): 谢谢指教 2011-05-30 15:23:30

这个程序vtstool code中有的。

你们组看起来是做单壁纳米管的，所以这个脚本可以一直用着。

如果含有f电子，就没有办法用了。LORBIT = 11和LORBIT = 10是有很大差异的，这个脚本需要修改才能用。

赞一下(3人)

回复此楼

» 本帖已获得的红花（最新10朵）

哥是传说

2楼2011-05-30 11:01:16

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

cenwanglai

荣誉版主 (知名作家)

老和山猥琐派九段

1ST强帖: 5
应助: 46 (小学生)
贵宾: 8.842
金币: 7440.4
散金: 9654
红花: 118
沙发: 23
帖子: 5306
在线: 1961.4小时
虫号: 537452
注册: 2008-04-01
性别: GG
专业: 理论和计算化学
管辖: 仿真模拟

★
小木虫(金币+0.5):给个红包，谢谢回帖

引用回帖:

3楼: Originally posted by wujing110 at 2011-11-14 11:21:03:
请问区长童鞋，LORBIT = 11时候应该怎么改呀？我设置LORBIT = 11，一共有19列数据，但是我现在只想要 s+,s-,p+,p-,d+,d-，那些角动量分量要一列一列加成总的么？

是啊。第四列到九列是p的三个分量及上下旋。三个奇数列相加的p+，三个偶数列相加的p-。后面10列是d分量及自旋。上旋和下旋分别相加。

可以用excel或者origin来做列的相加。

赞一下(1人)

回复此楼

4楼2011-11-14 13:21:54

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

gougou531

禁虫 (正式写手)

★
小木虫(金币+0.5):给个红包，谢谢回帖

本帖内容被屏蔽

5楼2011-11-14 14:05:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 19 个回答

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[考研] 070300化学求调剂 +9	小黄鸭宝 2026-03-30	9/450	2026-03-31 13:49 by anny19840123
[考研] 一志愿华东理工大学，080500学硕，317分，求调剂 +4	s1145 2026-03-31	4/200	2026-03-31 13:41 by 天籁战国策
[考研] 282求调剂不挑专业求收留 +3	Yam. 2026-03-30	4/200	2026-03-31 10:04 by cal0306
[考研] 269求调剂 +4	我想读研11 2026-03-31	4/200	2026-03-31 10:04 by cal0306
[考研] 英一数一408，总分284，二战真诚求调剂 +3	12.27 2026-03-30	5/250	2026-03-31 00:47 by 不吃芒果17
[考研] 281求调剂 +5	亚克西good 2026-03-26	7/350	2026-03-30 20:42 by dophin1985
[考研] 求收留 +6	1943443204 2026-03-28	6/300	2026-03-30 20:37 by dick_runner
[考研] 304材料求调剂 +5	钟llll 2026-03-26	5/250	2026-03-30 19:37 by 源_2020
[考研] 0703 化学求调剂，一志愿山东大学 342 分 +7	Shern—- 2026-03-28	7/350	2026-03-30 16:31 by nothing投稿中
[基金申请] 面上5B能上会吗？ +7	redcom 2026-03-29	7/350	2026-03-30 12:44 by 爱搞研究的小孩
[考研] 求化学调剂 +11	wulanna 2026-03-28	11/550	2026-03-30 10:59 by 探123
[考研] 复试调剂 +3	raojunqi0129 2026-03-28	3/150	2026-03-28 15:27 by 落睿可思
[考研] 085701环境工程，267求调剂 +16	minht 2026-03-26	16/800	2026-03-28 12:16 by zllcz
[考研] 0856，材料与化工321分求调剂 +12	大馋小子 2026-03-27	13/650	2026-03-28 10:56 by self2008
[考研] 085405 考的11408求各位老师带走 +3	Qiu学ing 2026-03-28	3/150	2026-03-28 09:19 by 乐呵呵的追梦人
[考研] 330一志愿中国海洋大学化学工程 085602 有读博意愿求调剂 +3	wywy.. 2026-03-27	4/200	2026-03-28 03:32 by fmesaito
[考研] 279 分求调剂 +4	睡个好觉_16 2026-03-24	4/200	2026-03-27 15:05 by 醉在风里
[考研] 调剂 +3	李嘉图·S·路 2026-03-27	3/150	2026-03-27 11:19 by wangjy2002
[考研] 085602化学工程求调剂。 +4	平乐乐乐 2026-03-26	4/200	2026-03-26 17:57 by fmesaito
[考研] 材料专硕 335 分求调剂 +4	拒绝冷暴力 2026-03-25	4/200	2026-03-25 18:45 by haxia

24小时热门版块排行榜

fly_elephan

[交流] vasp计算结果处理态密度要用到的程序 已有7人参与

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

» 本主题相关价值贴推荐，对您同样有帮助:

wujing110

cenwanglai

» 本帖已获得的红花（最新10朵）

cenwanglai

gougou531

[交流] vasp计算结果处理态密度要用到的程序已有7人参与