| ²é¿´: 3498 | »Ø¸´: 17 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
[½»Á÷]
¡¾ÇóÖú¡¿Çó²úÉú±äÐκóPOSCARµÄ defvector.f ³ÌÐòµÄÔ´Îļþ
|
|||
| ×î½ü¸ÕѧϰʹÓÃVASPÈí¼þ£¬¿´ºî²©µÄ˵Ã÷ÊéÖÐÌáµ½¼ÆË㵯ÐÔ³£ÊýÒªÓõ½defvector.f£¬ÇëÎÊÕâ¸ö³ÌÐòÔÚÄÄÀï¿ÉÒÔÕÒµ½ÄØ£¿Íû´ó¼Ò¸øÖ¸µ¼Ö¸µ¼£¬²»Ê¤¸Ð¼¤°¡ |
» ²ÂÄãϲ»¶
286Çóµ÷¼Á
ÒѾÓÐ15È˻ظ´
0860004 Çóµ÷¼Á 309·Ö
ÒѾÓÐ3È˻ظ´
²ÄÁÏÀà284µ÷¼Á
ÒѾÓÐ20È˻ظ´
µ÷¼Á
ÒѾÓÐ11È˻ظ´
¿¼Ñе÷¼Á-²ÄÁÏÀà-284
ÒѾÓÐ13È˻ظ´
¸´ÊÔµ÷¼Á£¬Ò»Ö¾Ô¸Ö£ÖÝ´óѧ²ÄÁÏÓ뻯¹¤289·Ö
ÒѾÓÐ13È˻ظ´
Ò»Ö¾Ô¸0807 ÊýÒ»Ó¢Ò» 313 ÓÐûÓжþÂÖµ÷¼Á
ÒѾÓÐ5È˻ظ´
Ò»Ö¾Ô¸0703»¯Ñ§ÕÐ61×îÖÕÅÅÃû62»¯Ñ§Çóµ÷¼Á
ÒѾÓÐ15È˻ظ´
308Çóµ÷¼Á
ÒѾÓÐ16È˻ظ´
²ÄÁϵ÷¼Á
ÒѾÓÐ14È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÇóÖúѹËõÓÀ¾Ã±äÐÎÎÊÌâ
ÒѾÓÐ6È˻ظ´
¾Û¼×»ù±ûÏ¡ËáôÇÒÒõ¥£¨HEMA£©¾ÛºÏ¼Ó¹¤³ÉÐͱäÐÎ
ÒѾÓÐ4È˻ظ´
²ÄÁϲúÉúËÜÐÔ±äÐÎÊDz»ÊÇʹÄÚÓ¦Á¦µÃµ½ÁËÊÍ·Å
ÒѾÓÐ14È˻ظ´
PA6¡¢PETµÄÈȱäÐÎζȷֱðÊǶàÉÙ£¿
ÒѾÓÐ7È˻ظ´
¸÷λÑо¿Ñ¹µçÌմɵĸßÊÖÃÇ ÇóÖú¹ØÓÚ·½ÐÎѹµçƬµÄ±äÐÎÐÎʽ
ÒѾÓÐ3È˻ظ´
Îļþ.fÈçºÎ±àÒë³É¿ÉÖ´ÐÐÎļþ
ÒѾÓÐ3È˻ظ´
¡¾ÇóÖú¡¿×ö±äÐνð¸Õ¹Ø½ÚÓ¦¸ÃÓÃÄÄÖÖÏð½º
ÒѾÓÐ8È˻ظ´
¡¾ÇóÖú¡¿¼Ó¹¤Ó²»¯ÂÊ»òÕßÓ¦±äÓëÀäÔþµÄ±äÐÎÁ¿ÓÐûÓйØÏµÄØ£¿
ÒѾÓÐ9È˻ظ´
¡¾ÇóÖú¡¿ÇëÎʽðÊô¡¢Ìմɺ͸߷Ö×ӵıäÐλúÖÆ·Ö±ðÊÇʲô£¿
ÒѾÓÐ5È˻ظ´
» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:
¡ï¡ï±¬¡ï¡ï0860ÉúÎïÓëÒ½Ò©µ÷¼Á¿¼Éú¿´¹ýÀ´£¬ºÓ±±´óѧ»¯Ñ§Óë²ÄÁÏ¿ÆÑ§Ñ§Ôº
+1/218
̨ÖÝѧԺ¸ß¶ËºÏ½ðÑо¿ËùÕÐÊÕ²ÄÁϹ¤³Ì¡¢ÄÉÃ׿ÆÑ§Ó빤³Ìµ÷¼ÁÉú¡£
+1/187
Î人¹¤³Ì´óѧÁªºÏÅàÑøÕÐÊÕ˶ʿ£¨Ê³Æ·¡¢»·¾³ºÍ»¯Ñ§Ïà¹Ø×¨Òµ£©
+1/90
¼ÃÄÏ´óѧÂÀΰÃ÷½ÌÊÚ¿ÎÌâ×éÕÐÊÕÎïÀíѧ˶ʿµ÷¼ÁÉú
+1/75
µ÷¼Áϵͳ¼´½«¹Ø±Õ-¹ãÎ÷´óѧũѧԺ˶ʿÑо¿Éúµ÷¼Á£¨±¨¿¼×¨ÒµÎª09¿ªÍ·£©
+2/60
ºþ±±Æû³µ¹¤ÒµÑ§ÔºÆû³µ²ÄÁÏѧԺ2026Äê½ÓÊÕµ÷¼ÁÑо¿Éú£¨ÐÂÄÜÔ´µç³Ø·½Ïò£©
+2/50
ÐìÖÝÒ½¿Æ´óѧ ÉúÎïҽѧ¹¤³Ì ѧ˶/ר˶ ½ÓÊÜ-ÉúÎҽѧ¡¢²ÄÁÏ¡¢»¯Ñ§Ïà¹Ø×¨Òµ-µ÷¼ÁÉêÇë
+2/48
ÁijǴóѧ²ÄÁÏ¿ÆÑ§Ó빤³ÌѧԺ¹â¹¦Äܸ߷Ö×Ó²ÄÁÏ¿ÎÌâ×éÕÐÊÕµ÷¼ÁÑо¿Éú
+1/39
¶«±±´óѧÀîÒàׯ½ÌÊÚÕÐÊÕ2026Ä격ʿÉúºÍ¿ÆÑÐÖúÀí
+1/24
Õã½áéÖÝ£¬áéÖÝѧԺ»¯Ñ§Óë²ÄÁϹ¤³ÌѧԺÕÐÊÕÈ«Ìå08¡¢²¿·Ö07¡¢09µ÷¼Áͬѧ
+1/20
ºÓ±±´óѧ·ÖÎö»¯Ñ§ÕÐÊÕ¶àÃûµ÷¼Á¿¼Éú
+2/14
³¤É³Àí¹¤´óѧÍÁľˮÀûÕÐÊÕר˶µ÷¼ÁÉú
+1/11
³¤É³Àí¹¤´óѧÈÈ»·¾³·½ÏòÕÐÊÕר˶µ÷¼ÁÉú
+1/9
ºþ±±Æû³µ¹¤ÒµÑ§ÔºÆû³µ²ÄÁÏѧԺ2026ÄêÑо¿Éúµ÷¼Á
+1/5
ÆëÆë¹þ¶û´óѧÀîÀò¿ÎÌâ×é³ÏÕÐ2026¼¶¿¼Ñе÷¼ÁÉú£¨Ñ§Ë¶ºÍר˶£©
+1/5
»¶Óµ÷¼ÁÅÊÖ¦»¨Ñ§Ôº»¯Ñ§¹¤³Ìרҵ£¬×ÊÔ´Óë»·¾³×¨Òµ£¬ÏßÉϸ´ÊÔ
+1/5
ÕҺù¤×÷À´ÎÒÕâ-¹ã¶«Î¨Ò»Ê¯»¯ÔºÐ£¡ª¡ª×ÊÔ´Óë»·¾³×¨Ë¶ÕÐÉú
+1/5
¾üÊÂҽѧÑо¿Ô±¶¾ÎïÒ©ÎïÑо¿ËùÒ©ÀíѧÉúÎï¼¼ÊõÒ©Îï´úл·½ÏòÕÐÊÕµ÷¼ÁÉú 4Ãû
+1/2
ºþÄÏũҵ´óѧÄÜÔ´²ÄÁÏ´´ÐÂÍŶÓÕÐÊÕ2026»¯Ñ§×¨ÒµÑо¿Éú£¨Ñ§Ë¶£©µ÷¼Á
+1/2
Ò»Ö¾Ô¸211µç×ÓÐÅÏ¢347Çóµ÷¼Á
+1/1
13Â¥2015-12-01 16:20:29
¡ï
sunyang1988(½ð±Ò+1): ллÌáʾ 2011-04-10 00:04:45
·çÓêͬÖÜ113(½ð±Ò+2): 2011-04-10 12:53:42
sunyang1988(½ð±Ò+1): ллÌáʾ 2011-04-10 00:04:45
·çÓêͬÖÜ113(½ð±Ò+2): 2011-04-10 12:53:42
|
´ò¿ªÖ¸ÄÏ,¼ô/ÌùÒ»ÏÂdefvector.f,±àÒë. »ò Ö±½Ó¸øºî²©Ê¿·¢ÓʼþË÷È¡. |
2Â¥2011-04-09 23:40:39
·çÓêͬÖÜ113(½ð±Ò+16): 2011-07-16 21:39:37
|
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% C >this simple program to get the primitive vectors after C $\delta$ strain, in order to calculate the independent C elastic constants of solids. C usage: C!!!!! Please first prepare the undeformed POSCAR in OLDPOS C >defvector.x C >type defvector.x > create new POSCAR in file fort.3 C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% program defvector real*8 privect,strvect,delta,strten,strain,pos, alat dimension privect(3,3),strvect(3,3),strten(3,3),strain(6) dimension pos(50,3) character*10 bravlat, title, direct integer i,j,k,ntype, natomi, nn dimension natomi(10) C%%%%%%%%% Read the undeformed primitive vector and atomic postion %%%%%%% open(7,file='OLDPOS') C%% In first line of OLDPOS, please add the number C%% of the type of atoms after the title read(7,*) title, ntype read(7,*) alat do i=1,3 read(7,*) (privect(i,j),j=1,3) write(*,*) (privect(i,j),j=1,3) enddo read(7,*) (natomi(i),i=1,ntype) nn=0 do i =1, ntype nn=nn+natomi(i) enddo read(7,*) direct do i=1, nn read(7,*) (pos(i,j),j=1,3) enddo C%%%%%%%%% Read the amti of strain %%%%%%%%%%%%%%% read(*,*) delta C%%%%%%%%% Define the strain %%%%%%%%%%%%%% strain(1)=0.0 strain(2)=delta strain(3)=delta strain(4)=0.0 strain(5)=0.0 strain(6)=0.0 C%%%%%%%%% Define the strain tensor %%%%%%%%%%%%%%%%%%%%%%%% strten(1,1)=strain(1)+1.0 strten(1,2)=0.5*strain(6) strten(1,3)=0.5*strain(5) strten(2,1)=0.5*strain(6) strten(2,2)=strain(2)+1.0 strten(2,3)=0.5*strain(4) strten(3,1)=0.5*strain(5) strten(3,2)=0.5*strain(4) strten(3,3)=strain(3)+1.0 C%%%%%%%%% Transform the primitive vector to the new vector under strain%%%%% C strvect(i,j)=privect(i,j)*(I+strten(i,j)) do k=1,3 do i=1,3 strvect(i,k)=0.0 do j=1,3 strvect(i,k)=strvect(i,k)+privect(i,j)*strten(j,k) enddo enddo enddo C%%%%%%%% Write the new vector under strain%%%%%%%%%%%% do i=1,3 write(*,100)(strvect(i,j),j=1,3) enddo 100 format(3f20.15) C%%%%%%%%% Create the POSCAR for total energy calculation %%%%%%%%%%%%%%5 write(3,'(A10)') title write(3,'(f15.10)') alat do i=1,3 write(3,100)(strvect(i,j),j=1,3) enddo write(3,'(10I4)') (natomi(i), i=1,ntype) write(3,'(A6)') Direct do i=1, nn write(3,100) (pos(i,j),j=1,3) enddo C%%%%%%% end |
4Â¥2011-04-12 10:27:42
ufo991
Ìú³æ (ÕýʽдÊÖ)
- 1STÇ¿Ìû: 1
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1148.3
- Ìû×Ó: 358
- ÔÚÏß: 104.6Сʱ
- ³æºÅ: 671678
¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
|
ΪºÎÎÒ±àÒëÄÜͨ¹ý£¬ÔËÐеÄʱºò³öÏÖinvalid number:incomprehensible list input apparent state: unit 7 named OLDPOS last format: list io lately reading direct formatted external IO »òÕßapparent state: unit 5 (unnamed) last format: list io lately reading direct formatted external IO list in: end of file µÄÎÊÌâÄØ£¿ |
5Â¥2012-05-30 10:31:31














»Ø¸´´ËÂ¥