| ²é¿´: 3377 | »Ø¸´: 17 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
[½»Á÷]
¡¾ÇóÖú¡¿Çó²úÉú±äÐκóPOSCARµÄ defvector.f ³ÌÐòµÄÔ´Îļþ
|
|||
| ×î½ü¸ÕѧϰʹÓÃVASPÈí¼þ£¬¿´ºî²©µÄ˵Ã÷ÊéÖÐÌáµ½¼ÆË㵯ÐÔ³£ÊýÒªÓõ½defvector.f£¬ÇëÎÊÕâ¸ö³ÌÐòÔÚÄÄÀï¿ÉÒÔÕÒµ½ÄØ£¿Íû´ó¼Ò¸øÖ¸µ¼Ö¸µ¼£¬²»Ê¤¸Ð¼¤°¡ |
» ²ÂÄãϲ»¶
293Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
290Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
285»¯¹¤Ñ§Ë¶Çóµ÷¼Á£¨081700£©
ÒѾÓÐ8È˻ظ´
211±¾£¬11408Ò»Ö¾Ô¸ÖпÆÔº277·Ö£¬ÔøÔÚÖпÆÔº×Ô¶¯»¯Ëùʵϰ
ÒѾÓÐ5È˻ظ´
²ÄÁÏÓ뻯¹¤304ÇóBÇøµ÷¼Á
ÒѾÓÐ8È˻ظ´
ÓÐûÓдóÀз¢Ð¡ÂÛÎÄÄÜ´øÎÒ¸ö¶þ×÷
ÒѾÓÐ4È˻ظ´
¿¼Ñе÷¼Á
ÒѾÓÐ5È˻ظ´
267Ò»Ö¾Ô¸ÄϾ©¹¤Òµ´óѧ0817»¯¹¤Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
293Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
302Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÇóÖúѹËõÓÀ¾Ã±äÐÎÎÊÌâ
ÒѾÓÐ6È˻ظ´
¾Û¼×»ù±ûÏ¡ËáôÇÒÒõ¥£¨HEMA£©¾ÛºÏ¼Ó¹¤³ÉÐͱäÐÎ
ÒѾÓÐ4È˻ظ´
²ÄÁϲúÉúËÜÐÔ±äÐÎÊDz»ÊÇʹÄÚÓ¦Á¦µÃµ½ÁËÊÍ·Å
ÒѾÓÐ14È˻ظ´
PA6¡¢PETµÄÈȱäÐÎζȷֱðÊǶàÉÙ£¿
ÒѾÓÐ7È˻ظ´
¸÷λÑо¿Ñ¹µçÌմɵĸßÊÖÃÇ ÇóÖú¹ØÓÚ·½ÐÎѹµçƬµÄ±äÐÎÐÎʽ
ÒѾÓÐ3È˻ظ´
Îļþ.fÈçºÎ±àÒë³É¿ÉÖ´ÐÐÎļþ
ÒѾÓÐ3È˻ظ´
¡¾ÇóÖú¡¿×ö±äÐνð¸Õ¹Ø½ÚÓ¦¸ÃÓÃÄÄÖÖÏð½º
ÒѾÓÐ8È˻ظ´
¡¾ÇóÖú¡¿¼Ó¹¤Ó²»¯ÂÊ»òÕßÓ¦±äÓëÀäÔþµÄ±äÐÎÁ¿ÓÐûÓйØÏµÄØ£¿
ÒѾÓÐ9È˻ظ´
¡¾ÇóÖú¡¿ÇëÎʽðÊô¡¢Ìմɺ͸߷Ö×ӵıäÐλúÖÆ·Ö±ðÊÇʲô£¿
ÒѾÓÐ5È˻ظ´
» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:
×ø±êÉϺ££¬³ÏÕ÷Å®ÓÑ£¬·Ç³£ ׿±£¬Ë½ÐűػØ
+1/477
ÎïÀíѧ µ÷¼Á
+1/96
ÖØÇìÒ½¿Æ´óѧÉñ¾¿ÆÑ§ÖÐÐÄ/²¡ÉúÓëÉúÀíϵ³ÏÑûº£ÄÚÍâÓÅÐ㲩ʿ¼ÓÃ˲©Ê¿ºó¶ÓÎ飨³¤ÆÚ£©
+1/82
¡¾´úÈË·¢ÌûÎðÕ¾ÄÚÐÅ¡¿¡¾³É¶¼Õ÷ÄÐÓÑ¡¿89Äêδ»é²©Ê¿Æ¯ÁÁÅ®º¢
+1/71
Î÷±±¹¤Òµ´óѧ¹â×ÓѧÑо¿ÍÅ¶Ó³ÏÆ¸²©Ê¿ºó£¡
+2/42
ÉúֳҽѧÓë×Ó´ú½¡¿µÈ«¹úÖØµãʵÑéÊÒÒÅ´«Ñ§¿ÎÌâ×éÕÐÊÕÑо¿Éú(³¤ÆÚÓÐЧ)
+1/34
½ÌÑÐÂÛÎÄSCIÆÚ¿¯Í¶¸åÑ¡¿¯
+1/34
2026Ä깤¿ÆË¶Ê¿µ÷¼Á-ÉϺ£´óѧȫ¹úÖØµãʵÑéÊÒÍŶÓ-²ÄÁÏÊý¾ÝÍÚ¾ò·½Ïò-Ñо¿Éú3-5ÈË
+1/30
ҽѧ327·Öר˶µ÷¼Á
+1/16
ѧÊõ/רҵ˶ʿµ÷¼Á¡ª¡ª»¯Ñ§¡¢×ÊÔ´Óë»·¾³
+1/15
Öйú¿ÆÑ§Ôº¹ý³Ì¹¤³ÌÑо¿ËùÖúÀíÑо¿Ô±£¨Õýʽְ¹¤£©ºÍ²©Ê¿ºóÕÐÆ¸ÆôÊÂ
+1/13
¡¾È«½±ÕÐÉú¡¿±±Ê¦¸Û½þ´óESLASʵÑéÊÒÕÐÊÕÃÜÂ빤³Ì/ÍøÂ簲ȫ/¼ÆËã»úÊÓ¾õ²©Ê¿/²©Ê¿ºó
+1/11
»ªÖпƼ¼´óѧ¹ÜÀíѧԺÕÐÆ¸Éç»áÓù¤£¨¿ÆÑÐÖúÀí£©1Ãû
+1/7
¡¾µÚÈýÂÖÕÐÉú£¬31ºÅ½ØÖ¹¡¿°Ä¿Æ´ó³ÏÕÐ2026ÇïÈ«½±²©Ê¿Ñо¿Éú£¨ÄÉÃ×ҽѧ/ÉúÎï²ÄÁÏ·½Ïò£©
+1/6
ÇëÎÊΪʲôÎÒµÄÌù×Ó×Ô¶¯µ½¡°ÒÑɾ³ýµÄÖ÷Ì⡱Àï¶øÃ»Óб»·¢²¼£¿
+1/5
·¢paper
+1/5
ÉϺ£µÚ¶þ¹¤Òµ´óѧ-Öì´óº£¿ÎÌâ×éÕÐÉú£¨¹ýÏß¾ÍÄܵ÷¼Á£©
+1/5
¡¾2026Äê´º¼¾²¹Â¼¡¿ÏÃÃÅ´óѧÌïÖÐȺԺʿ/Ò׿¥½ÌÊÚÄÉÃ×¹â×ÓѧÍŶÓÕÐÊÕ2026ÄêÈëѧ²©Ê¿Éú
+1/2
085404 270Çóµ÷¼Á£¬bÇøÇóµ¼Ê¦ÊÕÁô½ÓÊÜ¿çרҵ
+1/1
°Ä´óÀûÑÇ¿ÆÑ§ÔºÔºÊ¿Prof.Gordon Wallace, University of Wollongong È«½±²©Ê¿»ú»á
+1/1
6Â¥2012-06-07 06:00:01
¡ï
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













»Ø¸´´ËÂ¥