Znn3bq.jpeg
²é¿´: 6451  |  »Ø¸´: 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µÄ»ØÌû

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µÄ»ØÌû
²é¿´È«²¿ 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µÄ»ØÌû

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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 277Çóµ÷¼Á +23 Äß½¨Éè 2026-04-06 23/1150 2026-04-13 00:40 by Íõͯ×ÓÁú
[¿¼ÑÐ] Ò»Ö¾Ô¸°²´óÉúÎïѧ07³õÊÔ322¡¢±¾¿Æ¶þ±¾¡¢µ÷¼ÁÇóÖú +10 Àî¶àÃ×lee. 2026-04-12 11/550 2026-04-12 22:58 by yuyin1233
[¿¼ÑÐ] 086000µ÷¼Á +6 Ê®Æßsa 2026-04-07 6/300 2026-04-12 11:05 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] »¯Ñ§¹¤³Ìµ÷¼Á289 +44 yangæÃ 2026-04-07 50/2500 2026-04-12 02:36 by Çï¶¹²ËÑ¿
[¿¼ÑÐ] 293Çóµ÷¼Á +8 ÓÂÔ¶¿â°®314 2026-04-06 8/400 2026-04-11 20:25 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 359Çóµ÷¼Á +5 θ¾·ÂÎÀÛÁË 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[¿¼ÑÐ] »¹Óл¯¹¤¶þÂÖµ÷¼ÁµÄѧУÂð 5+14 »¯¹¤ÈË999 2026-04-09 48/2400 2026-04-11 10:27 by 89436494
[¿¼ÑÐ] ²ÄÁÏÀà284µ÷¼Á +40 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 48/2400 2026-04-10 23:28 by 314126402
[¿¼ÑÐ] 287Çóµ÷¼Á +15 Fnhc 2026-04-07 21/1050 2026-04-10 19:09 by chemisry
[¿¼ÑÐ] »úе»¹Óл¹ÓÐÃû¶îÂð£¿Ì«ÄÑÁË +6 ЦЦԬ 2026-04-10 6/300 2026-04-10 11:54 by ¸ßά´º
[¿¼ÑÐ] µ÷¼ÁÉêÇë086000Ò»Ö¾Ô¸Î÷±±Å©ÁֿƼ¼´óѧÉúÎïÓëÒ½Ò©320·Ö-±¾¿ÆÆë³¹¤Òµ´óѧ +3 ÃÀÃÀŮʿ 2026-04-09 3/150 2026-04-10 10:31 by liuhuiying09
[¿¼ÑÐ] Çóµ÷¼Á +11 ôæôæÒ»ÊéÉú 2026-04-09 13/650 2026-04-10 10:27 by liuhuiying09
[¿¼ÑÐ] ¿¼ÑжþÂÖµ÷¼Á +8 ¹ÊÈË?? 2026-04-09 8/400 2026-04-10 09:44 by Çà÷duoduo
[¿¼ÑÐ] Ò»Ö¾Ô¸»ª¹¤085600 331·Ö +6 ÌìÏÂww 2026-04-09 6/300 2026-04-09 18:59 by l_paradox
[¿¼ÑÐ] ÉúÎïѧµ÷¼Á£¬Ò»Ö¾Ô¸Î÷ÄÏ´óѧ348£¬TopÆÚ¿¯Ò»Çø¶þ×÷¡¢¶þÇøÈý×÷£¬ÈýµÈ½±Ñ§½ðÈý´Î +4 candyyyi 2026-04-09 4/200 2026-04-09 18:39 by l_paradox
[¿¼ÑÐ] 086004 Çóµ÷¼Á 309 +7 Yin DY 2026-04-08 7/350 2026-04-09 13:59 by Delta2012
[¿¼ÑÐ] 327Çóµ÷¼Á +10 Xxjc1107. 2026-04-06 11/550 2026-04-09 01:21 by lature00
[¿¼ÑÐ] ²ÄÁÏ¿¼ÑÐÇóµ÷¼Á×Ü·Ö280 +30 mkjlz1 2026-04-06 35/1750 2026-04-08 21:25 by cyh¡ª315
[¿¼ÑÐ] 344Çóµ÷¼Á +11 κ×Óper 2026-04-07 11/550 2026-04-07 23:01 by JourneyLucky
[¿¼ÑÐ] 22408 318·ÖÇóµ÷¼Á +4 ÇڷܵÄСÁý°ü 2026-04-06 6/300 2026-04-07 15:05 by Ö½º×555
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û