| ²é¿´: 3481 | »Ø¸´: 19 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
identation½ð³æ (ÖøÃûдÊÖ)
|
[½»Á÷]
¡¾ÇóÖú¡¿Ð鯵ºÍÈíÄ£ÊÇÒ»»ØÊÂô£¿ ÒÑÓÐ10È˲ÎÓë
|
||
|
Ò»Ð©Î»ÒÆÐÍÏà±ä£¬±ÈÈçBaTiO3µÄ˳µç-ÌúµçÏà±ä£¬ÔÚÏà±äµã¸½½üÓÐÈíÄ££¬ÕâÔÚµÚÒ»ÐÔÔÀí¼ÆËãÖÐÔõôÌåÏÖÄØ£¿ÊÇÉù×ÓÆ×ÖдæÔÚÐéÆµÃ´£¿Ð鯵ºÍÈíÄ£ÊÇÒ»»ØÊÂô£¿ [ Last edited by identation on 2010-7-1 at 20:02 ] |
» ²ÂÄãϲ»¶
»¯Ñ§¹¤³Ì321·ÖÇóµ÷¼Á
ÒѾÓÐ11È˻ظ´
²ÄÁÏר˶326Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
¶«ÄÏ´óѧ364Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
¹ú×Ô¿ÆÃæÉÏ»ù½ð×ÖÌå
ÒѾÓÐ7È˻ظ´
ҩѧ383 Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
286Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
085601Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
302Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
¿¼Ñл¯Ñ§Ñ§Ë¶µ÷¼Á£¬Ò»Ö¾Ô¸985
ÒѾÓÐ5È˻ظ´
328Çóµ÷¼Á£¬Ó¢ÓïÁù¼¶551£¬ÓпÆÑоÀú
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
ÈçºÎÑ¡decoy set£¬×öÐéÄâɸѡ£¿
ÒѾÓÐ11È˻ظ´
¡¾ÇóÖú¡¿Çë½Ì´óÏÀÃÇ£ºÔõô½«½éµç³£ÊýµÄʵ²¿ºÍÐ鲿ÔÚoriginÀïÃæ½øÐÐcole-cole ÄâºÏ£¿
ÒѾÓÐ18È˻ظ´
¡¾ÇóÖú¡¿dmol3 ¹ý¶É̬ÏûÐ鯵£¡£¡
ÒѾÓÐ4È˻ظ´
¹ã¶«Ê¡¿Æ¼¼Í¼Êé¹ÝÐéÄâ²Î¿¼×ÉѯÓëÔÎÄ´«µÝƽ̨£¬ÈÃÄãÇáËÉÕÒµ½ÏëÒªµÄÎÄÏ×
ÒѾÓÐ4È˻ظ´
¡¾ÇóÖú¡¿vaspÓÅ»¯ÆøÌå·Ö×Ó£¬×ÜÊdzöÏÖÐ鯵£¬¸ÃÈçºÎ´¦Àí£¿
ÒѾÓÐ5È˻ظ´
¡¾×ªÌû¡¿¡¶PLoS×ۺϡ·£ºÐéÄâÏÖʵ¼¼Êõ¿ÉʹÄÐÈ˸е½ÓµÓÐÅ®ÐÔÉíÌå
ÒѾÓÐ3È˻ظ´
¡¾·ÖÏí¡¿ÍÆ¼ö100¸öºÃÍøÕ¾£¬´Ó´ËÉÏÍø²»ÔÙÐé¶È¡¾ÒÑËÑË÷ÎÞÖØ¸´¡¿
ÒѾÓÐ228È˻ظ´
mudannanzi
ľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1959.1
- Ìû×Ó: 883
- ÔÚÏß: 71.5Сʱ
- ³æºÅ: 976416
- ×¢²á: 2010-03-20
- ÐÔ±ð: GG
- רҵ: ½ðÊô²ÄÁϵÄÖÆ±¸¿ÆÑ§Óë¿çѧ

4Â¥2010-04-25 22:25:28
lono75
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 6963.1
- É¢½ð: 100
- ºì»¨: 2
- Ìû×Ó: 2433
- ÔÚÏß: 536.4Сʱ
- ³æºÅ: 932458
- ×¢²á: 2009-12-23
- רҵ: Äý¾Û̬ÎïÐÔ II £ºµç×ӽṹ
¡ï
identation(½ð±Ò+5):лл²ÎÓë
identation(½ð±Ò+5):лл²ÎÓë
|
ÏÈÓÃxcrysdenÕÒÌØÊâKµã, ÔÙ±àÒëgk.f, ÍøÕ¾ÉÏÄǸöF77³ÌʽÓдíÎó Éú³Éinp.kpt [ Last edited by lono75 on 2010-4-25 at 22:06 ] |

2Â¥2010-04-25 21:47:44
gavinliu7390
ľ³æ (ÖøÃûдÊÖ)
Ò¶ÂäÓ¥·É
- 1STÇ¿Ìû: 3
- Ó¦Öú: 51 (³õÖÐÉú)
- ¹ó±ö: 0.481
- ½ð±Ò: 1564.7
- É¢½ð: 2975
- ºì»¨: 34
- Ìû×Ó: 1278
- ÔÚÏß: 241.4Сʱ
- ³æºÅ: 675997
- ×¢²á: 2008-12-17
- ÐÔ±ð: GG
- רҵ: Äý¾Û̬ÎïÐÔI:½á¹¹¡¢Á¦Ñ§ºÍ
¡ï
identation(½ð±Ò+5):лл²ÎÓë
identation(½ð±Ò+40): 2010-04-25 23:36
identation(½ð±Ò+5):лл²ÎÓë
identation(½ð±Ò+40): 2010-04-25 23:36
|
Õâ¸öÒ»°ãÀ´Ëµ¶¼ÊÇ×Ô¼ºÐ´µÄ, ºÜ¼òµ¥! ÄǸöweb site²»ÊÇÌṩÁ˳ÌÐò. ËüµÄÊäÈëÎļþΪsyml£¬Êä³öÎļþΪinp.kpt¡£(Äã»á×öÄÜ´ø°É,Õâ¸öÈ¡µã¸úÄÜ´øµÄÈ¡µã×ÚÖ¼ÊÇÒ»ÑùµÄ.) ÆäÖÐsymlÊäÈëÎļþµÄ¸ñʽÈçÏ£º 8 15 15 15 15 15 15 15 G 0.0 0.0 0.0 K -0.33333333333 0.6666666666667 0.000000000 H -0.33333333333 0.6666666666667 0.500000000 A 0.0 0.0 0.5 G 0.0 0.0 0.0 M 0.0 0.5 0.0 L 0.0 0.5 0.5 A 0.0 0.0 0.5 µÚÒ»ÐÐÓÃÀ´±ê¼ÇÓжàÉÙ¸öÌØÊâkµã£¬ÏÂÃæÊÇÕâÐ©ÌØÊâkµãÖ®¼äÿ¸öÒª·Ö¶àÉÙ¸ökµã£¬½ÓמÍÊÇÕâÐ©ÌØÊâkµãµÄ×ø±ê¡£ °ÑÏÂÃæÕâ¸ö³ÌÐò±àÒë,Ö´Ðм´¿É. c +--------------------------------------------------------- c For generating k-points along the high-symmetry lines in c Brillouin zone and for calculate band-structures ! c +---------------------------------------------------------- C ---------'syml'--------- c 6 : nhighk c 20 20 20 10 20 : ndiv(i) c X 0.5 0.0 0.5 : labhk(1),phighk(1,1),........ c G 0.0 0.0 0.0 c L 0.5 0.5 0.5 c W 0.5 0.25 0.75 c K 0.375 0.375 0.75 c G 0.0 0.0 0.0 c direct & reciprocal lattice vectors over 'emin, emax' line C ----------------------- c max k-points = 200 program gk implicit real*8 (a-h,o-z) character*2 labhk dimension tkpt(200,3),pk(200,3),phighk(10,3) dimension disk(200),dish(10),labhk(10) dimension ndiv(10) c open(5,file='syml',status='old') open(7,file='inp.kpt') c read(5,*) nhighk read(5,*) (ndiv(i),i=1,nhighk-1) do i=1,nhighk-1 ntkp=ntkp+ndiv(i) enddo ntotkpt=ntkp+1 if(nhighk>10)then write(*,*)'Number of high-symmetry k points must < 10!' STOP endif if(ntotkpt>200)then write(*,*)'Total number of k points must <= 200!' STOP endif do i=1, nhighk read(5,*) labhk(i),(phighk(i,j),j=1,3) enddo write(*,*) (labhk(i),i=1,nhighk) c c----- generating k-points along high symmetric lines -------- c c pk(1,1)=phighk(1,1) pk(1,2)=phighk(1,2) pk(1,3)=phighk(1,3) ii=1 do i = 2, nhighk delx = (phighk(i,1) - phighk(i-1,1))/float(ndiv(i-1)) dely = (phighk(i,2) - phighk(i-1,2))/float(ndiv(i-1)) delz = (phighk(i,3) - phighk(i-1,3))/float(ndiv(i-1)) do j=1, ndiv(i-1) ii = ii + 1 pk(ii,1) = pk(ii-1,1) + delx pk(ii,2) = pk(ii-1,2) + dely pk(ii,3) = pk(ii-1,3) + delz enddo enddo c 10 format(A34) weight=1.d0 do i=1,ntotkpt write(7,200) pk(i,1),pk(i,2),pk(i,3),weight enddo 200 format(3F10.6,F6.2) stop end c----------------------- end --------------------------- ÍøÕ¾ÉÏ˵µÄºÜÇå³þ! Èç¹ûÄãÏë°ÑÁ½¸ökµã·Ö³ÉÊ®·Ý, ¾Í°Ñ15»»³É10¾Í¿ÉÒÔÁË! [ Last edited by gavinliu7390 on 2010-4-25 at 22:34 ] |

3Â¥2010-04-25 22:22:42
tianai3385
ͳæ (ÕýʽдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 57.6
- É¢½ð: 854
- Ìû×Ó: 523
- ÔÚÏß: 30.5Сʱ
- ³æºÅ: 926653
- ×¢²á: 2009-12-13
- רҵ: ¹â×ÓÓë¹âµç×ÓÆ÷¼þ
6Â¥2010-04-26 08:14:35













»Ø¸´´ËÂ¥