²é¿´: 6399  |  »Ø¸´: 15
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

wbt11129

ľ³æ (ÕýʽдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿VASP¼ÆËã³öµÄµç¼«»¯Ç¿¶ÈÊý¾Ý£¬Ôõô×öºó´¦Àí

ÓÃVASPÖеÄBerryÏà·½·¨¼ÆËã³ö¼«»¯Êý¾ÝÒԺ󣬲»»á×öºó´¦Àí£¬


±ÈÈçÎÒ¼ÆËãËùµÃ
G1·½ÏòP[elc]=(-0.00001, -0.00006, 0.01615),
G2·½ÏòP[elc]=(0.00000, 0.00000, 0.01615)£¬
G3·½ÏòP[elc]=(0.00000, 0.00000, -9.59885),
Èý¸ö·½ÏòµÄP[ion]=(-61.97390,133.49391,-194.56332)ÊÇÒ»Öµģ¬µ¥Î»¶¼ÊÇe*Angst¡£

ÄÇô£¬ÎÒËùÇóÌåϵµÄµç¼«»¯Ç¿¶ÈÊǶàÉÙ£¿ÑØÄĸö·½Ïò£¿Àë×Ó¹±Ï×¶àÉÙ£¿µç×Ó¹±Ï×ÓÖΪ¶àÉÙ£¿

±¾ÈËʵÔÚ²»»áºóÃæµÄ´¦Àí£¬Çëºî²©ºÍ¸÷λ´óϺָ½Ì¡£

×¢Ò⣬ÎÒÏÖÔÚ¼ÆËãµÄ²ÄÁϵÄprototype structure¸ù±¾¾Í²»ÖªµÀ¡£
»Ø¸´´ËÂ¥

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

vasp¼ÆËã×ÊÁÏ µÚÒ»ÐÔÔ­Àí¼ÆËã¾­Ñé µÚÒ»ÐÔÔ­Àí

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹ØÉ̼ÒÍÆ¼ö: (ÎÒÒ²ÒªÔÚÕâÀïÍÆ¹ã)

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

BaotianWang
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

bnliu

½ð³æ (СÓÐÃûÆø)

½á¹û´¦Àí

¡ï ¡ï ¡ï
zzy870720z(½ð±Ò+3):лл·ÖÏí 2010-10-14 19:40:43
wbt11129(½ð±Ò+3):лл·ÖÏí¡£ÄãÄÜ·ñ°ÑÄãÕâ¸ö³ÌÐòʹÓõÄÊäÈëÎļþ¸øÎÒÒ»·Ý£¬ÎҺòο¼¡£ÎÒQQ£º158604782 2010-10-19 10:35:16
±¾ÈË֮ǰ¼ÆËãÁËîÑËá±µµÄ×Ô·¢¼«»¯£¬×îºó½á¹û´¦ÀíһϾͿÉÒԵõ½×Ô·¢¼«»¯¡£×îºÃÓýű¾³ÌÐò£¬°Ñ×îºóÒª´¦ÀíµÄÏà¹ØÊý¾Ý·Åµ½Ò»¸öÎļþÀïÃæ£¬ÔÙÓÃFORTRAN¶ÔÎļþÊý¾Ý½øÐд¦Àí¾Í¿ÉÒÔÁË¡£        program polar
!this program is write for calculated the s_p of the solid after the
!scrip "berry" has been done and the file data developed by the scrip
!"berry" must be needed
        implicit real*8 (a-h,o-z)
        dimension gpar(9,3),pelec(2,3),berry(2,3),pionic(2,3)
        dimension p(3)
        character*86 nosen,nosen1
        character aa
        open (9,file='data')
        open (10,file= 'result')
        read(9,'(a86)')nosen
        write(10,'(a86)')nosen
        do i=1,9
       read(9,'(a7,f12.5,a,f12.5,a,f12.5)')aa,gpar(i,1),aa,gpar(i,2),aa,gpar(i,3)
!         write(10,110)gpar(i,1),gpar(i,2),gpar(i,3)
        enddo  
        do j=1,3
         pelec(1,j)=(gpar(1,j)+gpar(4,j)+gpar(7,j))/3
         berry(1,j)=gpar(2,j)+gpar(5,j)+gpar(8,j)
         pionic(1,j)=gpar(3,j)
        enddo
!        write(10,*)'the elec, Berry, ionic is'
        write(10,110)pelec(1,1),pelec(1,2),pelec(1,3)         
        write(10,110)berry(1,1),berry(1,2),berry(1,3)
        write(10,110)pionic(1,1),pionic(1,2),pionic(1,3)
110    format(f12.5,f12.5,f12.5)      
        read(9,'(a86)')nosen1
        write(10,'(a86)')nosen1
        do i=1,9
       read(9,'(a7,f12.5,a,f12.5,a,f12.5)')aa,gpar(i,1),aa,gpar(i,2),aa,gpar(i,3)
!         write(10,110)gpar(i,1),gpar(i,2),gpar(i,3)
        enddo  
        do j=1,3
         pelec(2,j)=(gpar(1,j)+gpar(4,j)+gpar(7,j))/3
         berry(2,j)=gpar(2,j)+gpar(5,j)+gpar(8,j)
         pionic(2,j)=gpar(3,j)
        enddo
        write(10,110)pelec(2,1),pelec(2,2),pelec(2,3)
        write(10,110)berry(2,1),berry(2,2),berry(2,3)
        write(10,110)pionic(2,1),pionic(2,2),pionic(2,3)
        read (9,*)nosen
        read (9,*)nosen
        read (9,'(a20,f10.2)')nosen,volum
        read (9,'(a13,f18.10)')nosen,alat
        read (9,'(a13,f18.10)')nosen,ratio
        correct= ((1.000/alat)/alat)*1600
!to calculate the polaraztion in x, y, z direction!
         do k=1,3
          p(k)=(pelec(2,k)+berry(2,k)+pionic(2,k)-pelec(1,k)-berry(1,k)-pionic(1,k))
!*1600/volum
          write(10,*)'the diff is',p(k),'the polar is',(p(k)*(-1600))/volum
         enddo
         write(10,*)'The free correction is ', correct
       end
ÕâÊdzÌÐò£¬¿ÉÒÔ¿´Ò»Ï¡£
ÈËÉúÖ»ÓÐÒ»´Î
5Â¥2010-10-14 16:30:55
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 16 ¸ö»Ø´ð

wbt11129

ľ³æ (ÕýʽдÊÖ)

ÓÐË­Ëã¹ý¶àÌú²ÄÁϵģ¬Çë¹ýÀ´¿´¿´
BaotianWang
2Â¥2010-09-28 16:32:26
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wbt11129

ľ³æ (ÕýʽдÊÖ)

¶¥ÆðÀ´£¬Ï£ÍûÓÐÈ˹Ø×¢¡£
BaotianWang
3Â¥2010-09-30 10:19:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

valenhou001

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

¡ï
wuli8(½ð±Ò+1):лл 2010-10-01 22:57:08
wbt11129(½ð±Ò+3):ллºî²©ÁË£¬²»¹ý»¹ÊDz»»áÎÒÕâÖÖÌåϵµÄµç¼«»¯Ç¿¶È¼ÆË㣬ÒòΪÎÒÕâÖÖÌåϵûÓÐÔ­Ðͽṹ¡£ 2010-10-20 09:14:04
Ö»ÓÐÕâÑùµÄÊý¾ÝÊǵõ½²»µ½µÄ¡£
¿ÉÒÔ¿´¿´ÎÒblogÉϵÄÒ»¸öÀý×Ó£º
http://valenhou.blog.edu.cn/2008/133226.html
4Â¥2010-09-30 12:09:30
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 336Çóµ÷¼Á +4 ÊÕµ½VS 2026-03-20 4/200 2026-03-23 19:02 by macy2011
[¿¼ÑÐ] 07»¯Ñ§280·ÖÇóµ÷¼Á +3 722865 2026-03-23 3/150 2026-03-23 18:48 by macy2011
[¿¼ÑÐ] Çóµ÷¼ÁÒ»Ö¾Ô¸Î人Àí¹¤´óѧ²ÄÁϹ¤³Ì£¨085601£© +3 WW.' 2026-03-23 5/250 2026-03-23 17:18 by ·ãÒíljj
[¿¼ÑÐ] 316Çóµ÷¼Á +7 ÁºÜçö© 2026-03-19 7/350 2026-03-23 16:21 by lingjue
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤¿¼Ñе÷¼Á +4 ‹üÈA 2026-03-22 4/200 2026-03-23 16:13 by Ò»ÐݸçFU
[¿¼ÑÐ] 0703 µ÷¼Á +3 ÎÒ¿ÉÒÔÉϰ¶µÄ¶Ô 2026-03-16 6/300 2026-03-23 08:52 by ×íÔÚ·çÀï
[¿¼ÑÐ] 280·ÖÇóµ÷¼Á Ò»Ö¾Ô¸085802 +4 PUMPT 2026-03-22 7/350 2026-03-22 22:13 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 308Çóµ÷¼Á +3 īīĮ 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[¿¼ÑÐ] 306Çóµ÷¼Á +5 À´ºÃÔËÀ´À´À´ 2026-03-22 5/250 2026-03-22 16:17 by BruceLiu320
[¿¼ÑÐ] ѰÕÒµ÷¼Á +4 ¾óǿâ? 2026-03-21 4/200 2026-03-22 16:14 by ľÍÐζ¶
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÄÏ»¯Ñ§£¨0703£©×Ü·Ö337Çóµ÷¼Á +9 niko- 2026-03-19 10/500 2026-03-22 16:08 by ColorlessPI
[¿¼ÑÐ] Ò»Ö¾Ô¸ Î÷±±´óѧ £¬070300»¯Ñ§Ñ§Ë¶£¬×Ü·Ö287£¬Ë«·ÇÒ»±¾£¬Çóµ÷¼Á¡£ +3 ³¿»èÏßÓëÐǺ£ 2026-03-20 3/150 2026-03-22 16:00 by ColorlessPI
[¿¼ÑÐ] 289Çóµ÷¼Á +7 »³èªÎÕè¤l 2026-03-20 7/350 2026-03-22 15:57 by ColorlessPI
[¿¼ÑÐ] 268Çóµ÷¼Á +9 ¼òµ¥µã0 2026-03-17 9/450 2026-03-21 15:37 by lature00
[¿¼ÑÐ] ²ÄÁϹ¤³Ì£¨×¨£©Ò»Ö¾Ô¸985 ³õÊÔ335Çóµ÷¼Á +3 hiloiy 2026-03-17 4/200 2026-03-21 03:04 by JourneyLucky
[¿¼ÑÐ] »¯Ñ§Çóµ÷¼Á +4 ÁÙÔó¾³llllll 2026-03-17 5/250 2026-03-21 02:23 by JourneyLucky
[¿¼ÑÐ] 332Çóµ÷¼Á +4 ydfyh 2026-03-17 4/200 2026-03-21 02:20 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸ËÕÖÝ´óѧ²ÄÁÏÇóµ÷¼Á£¬×Ü·Ö315£¨Ó¢Ò»£© +5 sbdksD 2026-03-19 5/250 2026-03-20 22:10 by luoyongfeng
[¿¼ÑÐ] Çóµ÷¼ÁÒ»Ö¾Ô¸ÄϾ©º½¿Õº½Ìì´óѧ289·Ö +3 @taotao 2026-03-19 3/150 2026-03-20 21:34 by JourneyLucky
[¿¼ÑÐ] ¹ãÎ÷´óѧ¼ÒÇÝÒÅ´«ÓýÖÖ¿ÎÌâ×é2026Äê˶ʿÕÐÉú£¨½ÓÊÕ¼ÆËã»úרҵµ÷¼Á£© +3 123°¢±ê 2026-03-17 3/150 2026-03-20 15:58 by ·ÉÐÐçù
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û