Znn3bq.jpeg
²é¿´: 6449  |  »Ø¸´: 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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 086000µ÷¼Á +6 Ê®Æßsa 2026-04-07 6/300 2026-04-12 11:05 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] 291Çóµ÷¼Á +8 ¹ØÒä±±. 2026-04-11 8/400 2026-04-12 09:32 by ÄæË®³Ë·ç
[¿¼ÑÐ] 331Çóµ÷¼Á +5 Íõ¹ú˧ 2026-04-11 5/250 2026-04-11 22:56 by Ϫ½§Á÷Ë®
[¿¼ÑÐ] ²ÄÁϹ¤³ÌÈÕÓÉúÇóµ÷¼Á +7 0856?µ÷¼Á 2026-04-10 7/350 2026-04-11 21:33 by À¶ÔÆË¼Óê
[¿¼ÑÐ] 070300»¯Ñ§279Çóµ÷¼Á +19 ¹þ¹þ¹þ^_^ 2026-04-08 20/1000 2026-04-11 20:43 by stoner78
[¿¼ÑÐ] 283Çóµ÷¼Á 086004¿¼Ó¢¶þÊý¶þ +17 ÄǸöàà×Ó 2026-04-10 18/900 2026-04-11 16:27 by Ã÷Ô´ËʱÓÐ
[¿¼ÑÐ] 0854µ÷¼Á +5 ÒôÏñµêÌý»¨¹ÄÏ· 2026-04-10 5/250 2026-04-11 10:49 by qingpingzhu
[¿¼ÑÐ] 275Çóµ÷¼Á +9 1624447980 2026-04-08 10/500 2026-04-11 10:20 by Delta2012
[¿¼ÑÐ] 302·ÖÇóµ÷¼Á +9 ·²ÓïÆíÔ¸ 2026-04-08 10/500 2026-04-10 23:26 by 314126402
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£©×ö¹ý·Ö×ÓʵÑé +8 ÏàÐűػá¹ââÍòÕ 2026-04-07 9/450 2026-04-10 21:03 by zhouxiaoyu
[¿¼ÑÐ] 263ÄÜÔ´¶¯Á¦×¨Ë¶Çóµ÷¼Á +4 ¼Ó´óºÅ·¹ºÐ´ü 2026-04-10 4/200 2026-04-10 20:52 by gong120082
[¿¼ÑÐ] 287Çóµ÷¼Á +15 Fnhc 2026-04-07 21/1050 2026-04-10 19:09 by chemisry
[¿¼ÑÐ] Ò»Ö¾Ô¸211£¬»¯Ñ§Ñ§Ë¶£¬310·Ö£¬±¾¿ÆÖصãË«·Ç£¬Çóµ÷¼Á +27 ŬÁ¦·Ü¶·112 2026-04-07 30/1500 2026-04-10 15:06 by Kilig0317
[¿¼ÑÐ] 278Çóµ÷¼Á +27 ·¶æÃÄÈ 2026-04-07 31/1550 2026-04-09 20:49 by zhouxiaoyu
[¿¼ÑÐ] 0703»¯Ñ§Çóµ÷¼Á +21 ²»ÖªÃûµÄСئ 2026-04-08 21/1050 2026-04-09 18:55 by l_paradox
[¿¼ÑÐ] Ò»Ö¾Ô¸Öйú¿ÆÑ§ÔºÉϺ£ÓлúËù£¬Óлú»¯Ñ§356·ÖÕÒµ÷¼Á +11 Nadiums 2026-04-09 11/550 2026-04-09 18:04 by lijunpoly
[¿¼ÑÐ] Çóµ÷¼Á²ÄÁÏ¿ÆÑ§Ó빤³ÌÒ»Ö¾Ô¸985³õÊÔ365·Ö +5 ²Ä»¯Àî¿É 2026-04-08 5/250 2026-04-09 17:00 by Lilly_Li
[¿¼ÑÐ] 270Çóµ÷¼Á +3 031127 2026-04-06 4/200 2026-04-08 21:00 by ÄæË®³Ë·ç
[¿¼ÑÐ] Çóµ÷¼Á£¬ÏÖÔÚ»¹ÄÜÌîµÄ +3 Éϰ¶Ð¡Ó¨¼ÓÓÍ 2026-04-08 3/150 2026-04-08 14:30 by zhq0425
[¿¼ÑÐ] »úе¹¤³Ì264ѧ˶Çóµ÷¼Á +3 qiushangxian 2026-04-06 3/150 2026-04-08 01:53 by Linzejun
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û