| ²é¿´: 959 | »Ø¸´: 12 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
xiaowenzhi16Ìú¸Ëľ³æ (ÕýʽдÊÖ)
|
[½»Á÷]
¡¾ÇóÖú¡¿ÈçºÎÏÔʾ3D spin density
|
||
|
ÇëÎÊVASPÀïµÄ×ÔÐýÃܶÈÈçºÎÏÔʾΪ3D spin density µÄµç×ÓÔÆ×´µÄͼÏñ?ÓÃʲôÈí¼þ¿ÉÒÔ×öµ½ÄØ£¿£¿ лл |
» ²ÂÄãϲ»¶
327Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
08¹¤¿ÆÇóµ÷¼Á290·Ö
ÒѾÓÐ11È˻ظ´
Ò»Ö¾Ô¸985³õÊÔ354·ÖÉúÎïµ÷¼Á
ÒѾÓÐ3È˻ظ´
Ò»Ö¾Ô¸2110£¬»¯Ñ§Ñ§Ë¶310·Ö£¬±¾¿ÆÖصãË«·ÇÇóµ÷¼Á
ÒѾÓÐ13È˻ظ´
353Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
308Çóµ÷¼Á
ÒѾÓÐ16È˻ظ´
334Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
Ò»Ö¾Ô¸0807 ÊýÒ»Ó¢Ò» 313 ÓÐûÓжþÂÖµ÷¼Á
ÒѾÓÐ7È˻ظ´
¸´ÊÔµ÷¼Á£¬Ò»Ö¾Ô¸Ö£ÖÝ´óѧ²ÄÁÏÓ뻯¹¤289·Ö
ÒѾÓÐ14È˻ظ´
086000µ÷¼Á
ÒѾÓÐ3È˻ظ´
gaofenglili
Òø³æ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 126
- É¢½ð: 8
- ºì»¨: 1
- Ìû×Ó: 295
- ÔÚÏß: 18Сʱ
- ³æºÅ: 307162
- ×¢²á: 2006-12-16
- ÐÔ±ð: GG
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
qasd(½ð±Ò+2,VIP+0):лл~ 5-13 21:07
xiaowenzhi16(½ð±Ò+3,VIP+0):ллÀ²£¬¹ýÒ»ÏÂÔÙ¸øÅ¶¡£ 5-13 22:20
xiaowenzhi16(½ð±Ò+1,VIP+0):лл 5-14 12:00
qasd(½ð±Ò+2,VIP+0):лл~ 5-13 21:07
xiaowenzhi16(½ð±Ò+3,VIP+0):ллÀ²£¬¹ýÒ»ÏÂÔÙ¸øÅ¶¡£ 5-13 22:20
xiaowenzhi16(½ð±Ò+1,VIP+0):лл 5-14 12:00
| VESTA¿ÉÒÔ£¡ |
2Â¥2009-05-13 20:56:31
xiaowenzhi16
Ìú¸Ëľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 7096.7
- É¢½ð: 50
- ºì»¨: 1
- Ìû×Ó: 564
- ÔÚÏß: 311.7Сʱ
- ³æºÅ: 523628
- ×¢²á: 2008-03-12
- ÐÔ±ð: GG
- רҵ: °ëµ¼ÌåÎïÀí
3Â¥2009-05-13 22:19:11
y1ding
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- 1STÇ¿Ìû: 1
- Ó¦Öú: 61 (³õÖÐÉú)
- ¹ó±ö: 0.33
- ½ð±Ò: 5959.3
- É¢½ð: 1
- ºì»¨: 21
- Ìû×Ó: 1884
- ÔÚÏß: 491.1Сʱ
- ³æºÅ: 142265
- ×¢²á: 2005-12-21
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
¡ï ¡ï ¡ï ¡ï
xiaowenzhi16(½ð±Ò+3,VIP+0)::ллÀ²£¬¹ýÒ»ÏÂÔÙ¸øÅ¶ 5-14 10:15
xiaowenzhi16(½ð±Ò+1,VIP+0):лл 5-14 12:00
xiaowenzhi16(½ð±Ò+3,VIP+0)::ллÀ²£¬¹ýÒ»ÏÂÔÙ¸øÅ¶ 5-14 10:15
xiaowenzhi16(½ð±Ò+1,VIP+0):лл 5-14 12:00
|
ÄãÒª×Ô¼ºÏÈ´¦ÀíÏÂCHGCARÎļþ,µÃµ½×ÔÐýµçºÉÃܶÈ,Ôڻͼ. |
4Â¥2009-05-14 09:21:53
xiaowenzhi16
Ìú¸Ëľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 7096.7
- É¢½ð: 50
- ºì»¨: 1
- Ìû×Ó: 564
- ÔÚÏß: 311.7Сʱ
- ³æºÅ: 523628
- ×¢²á: 2008-03-12
- ÐÔ±ð: GG
- רҵ: °ëµ¼ÌåÎïÀí
5Â¥2009-05-14 10:14:22
µÆËþÊØÍûÕß
Ìú¸Ëľ³æ (ÕýʽдÊÖ)
- 1STÇ¿Ìû: 2
- Ó¦Öú: 28 (СѧÉú)
- ¹ó±ö: 0.015
- ½ð±Ò: 5815
- É¢½ð: 51
- ºì»¨: 40
- Ìû×Ó: 511
- ÔÚÏß: 943.5Сʱ
- ³æºÅ: 577747
- ×¢²á: 2008-06-27
- ÐÔ±ð: GG
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
xiaowenzhi16(½ð±Ò+6,VIP+0):ʵÔÚÊÇÌ«¸ÐлÀ²¡£ÒÔºó»¹ÒªÂé·³ÄãµÄ¡£ 5-14 12:00
wuchenwf(½ð±Ò+10,VIP+0):лл 5-14 23:01
xiaowenzhi16(½ð±Ò+6,VIP+0):ʵÔÚÊÇÌ«¸ÐлÀ²¡£ÒÔºó»¹ÒªÂé·³ÄãµÄ¡£ 5-14 12:00
wuchenwf(½ð±Ò+10,VIP+0):лл 5-14 23:01
|
¸øÄãÒ»¶ÎÎÒ×Ô¼º±àµÄ³ÌÐò£¬ÌáÈ¡µçºÉ»ò×ÔÐýÃܶÈͼ program readcharge4vasp !.............................................................. ! read density from name=CHG file of VASP !.............................................................. ! spin =0 - total charge \____ only for CHGCAR ! =1 - spin density / !.............................................................. character title*20,type_coodinates*20 integer :: natoms=0,NGX,NGY,NGZ,n=1,totalatoms=0,spin integer,allocatable :: ntypat( ![]() real*8 :: scale, basic_vectorx,basic_vectory,basic_vectorz real*8, allocatable :: grid(:,:, ![]() write(*,*)'Number of atom types in the unit cell' read(*,*) n write(*,*)'Charge density or spin density? (0 or 1)' read(*,*) spin allocate(ntypat(n)) open(unit=11,file='CHG') if (spin==0) then open(unit=12,file='Charge_Density.vasp') else if (spin==1) then open(unit=12,file='Spin_Density.vasp') end if read(11,'(A15)') title write(12,'(a15)') title read(11,*) scale write(12,"(F6.3)" scaledo i=1,3 read(11,*) basic_vectorx,basic_vectory,basic_vectorz write(12,'(3F13.7)')basic_vectorx,basic_vectory,basic_vectorz end do read(11,*) (ntypat(i),i=1,n) write(12,*) (ntypat(i),i=1,n) read(11,*) type_coodinates write(12,*) type_coodinates do i=1,n totalatoms=ntypat(i)+totalatoms end do do i=1,totalatoms read(11,*) x,y,z write(12,"(3F11.7)" x,y,zend do read(11,*) write(12,*) read(11,*) NGX,NGY,NGZ write(12,'(3I5)') NGX,NGY,NGZ allocate(grid(NGX,NGY,NGZ)) if (spin==1) then read(11,"(10E12.5E2)" (((grid(i,j,k),i=1,NGX),j=1,NGY),k=1,NGZ)read(11,*) else if (spin==0) then end if read(11,"(10E12.5E2)" (((grid(i,j,k),i=1,NGX),j=1,NGY),k=1,NGZ)write(12,"(10E13.5E2)" (((grid(i,j,k),i=1,NGX),j=1,NGY),k=1,NGZ)close(11) close(12) end Ö®ºóÓÃvesta´ò¿ª¡£ [ Last edited by µÆËþÊØÍûÕß on 2009-5-14 at 12:18 ] |
6Â¥2009-05-14 11:25:56
ddang100
Òø³æ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 408.7
- É¢½ð: 29
- ºì»¨: 3
- Ìû×Ó: 196
- ÔÚÏß: 75.6Сʱ
- ³æºÅ: 265582
- ×¢²á: 2006-07-15
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
7Â¥2009-05-14 11:30:14
mywai520
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 339 (´óѧÉú)
- ½ð±Ò: 10425.6
- ºì»¨: 45
- Ìû×Ó: 1664
- ÔÚÏß: 296.9Сʱ
- ³æºÅ: 265142
- ×¢²á: 2006-07-09
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
8Â¥2009-05-14 12:16:04
×ÓÐéÎÚÓÐ5388
ľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 7 (Ó×¶ùÔ°)
- ½ð±Ò: 1963
- É¢½ð: 50
- ºì»¨: 1
- Ìû×Ó: 561
- ÔÚÏß: 227.6Сʱ
- ³æºÅ: 705320
- ×¢²á: 2009-02-21
- ÐÔ±ð: GG
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
¡ï
wuchenwf(½ð±Ò+1,VIP+0):лл 5-14 23:02
wuchenwf(½ð±Ò+1,VIP+0):лл 5-14 23:02
| °ÑÊý¾Ý¿½±´³öÀ´ È»ºóÓÃgunplot¿ÉÒÔ×÷Èýάͼ°É |

9Â¥2009-05-14 15:16:10
y1ding
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- 1STÇ¿Ìû: 1
- Ó¦Öú: 61 (³õÖÐÉú)
- ¹ó±ö: 0.33
- ½ð±Ò: 5959.3
- É¢½ð: 1
- ºì»¨: 21
- Ìû×Ó: 1884
- ÔÚÏß: 491.1Сʱ
- ³æºÅ: 142265
- ×¢²á: 2005-12-21
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
10Â¥2009-05-14 16:52:20













»Ø¸´´ËÂ¥

scale