| ²é¿´: 495 | »Ø¸´: 2 | ||
ÇóÕæÎñʵͳæ (СÓÐÃûÆø)
|
[ÇóÖú]
ÏÈÇó³öu£¬ÔÙ¶ÔuÏòÉÏÈ¡Õû ÒÑÓÐ1È˲ÎÓë
|
|
rivate Sub Command6_Click() Dim u As Single u = 3 * Log(Text14.Text / Text16.Text) / 0.301 Function v(u As Single) As Integer If u > Fix(u) Then v = Fix(u) + 1 Else v = u End If End Function Text18.Text = v End Function ÏÈÇó³öu£¬ÔÙ¶ÔuÏòÉÏÈ¡Õû¡£ÒÔÉÏÊÇÎҵijÌÐò£¬µ«ÊÇÔËÐÐÏÔʾ¡°ÔËÐдíÎó£¬È±ÉÙend sub¡±£¬Çë¸ßÊÖÖ¸½Ì¡£ |
» ²ÂÄãϲ»¶
321Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
¶«»ªÀí¹¤´óѧ»¯²Äרҵ26½ì˶ʿ²©Ê¿ÉêÇë
ÒѾÓÐ8È˻ظ´
288Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
¡¾¿¼Ñе÷¼Á¡¿»¯Ñ§×¨Òµ 281·Ö£¬Ò»Ö¾Ô¸ËÄ´¨´óѧ£¬³ÏÐÄÇóµ÷¼Á
ÒѾÓÐ5È˻ظ´
ÄÜÔ´²ÄÁÏ»¯Ñ§¿ÎÌâ×éÕÐÊÕ˶ʿÑо¿Éú8-10Ãû
ÒѾÓÐ12È˻ظ´
0703»¯Ñ§µ÷¼Á
ÒѾÓÐ4È˻ظ´
ÕÐÊÕµ÷¼Á˶ʿ
ÒѾÓÐ10È˻ظ´
271²ÄÁϹ¤³ÌÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
²ÄÁÏר˶274Ò»Ö¾Ô¸ÉÂÎ÷ʦ·¶´óѧÇóµ÷¼Á
ÒѾÓÐ8È˻ظ´
Ò»Ö¾Ô¸Î人Àí¹¤²ÄÁϹ¤³Ìר˶µ÷¼Á
ÒѾÓÐ4È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
UCNPºÏ³É²ËÄñÇóÖú´óÉñ£¬ºÏ³ÉµÄUCNP£PAA²»ÄÍÑΣ¡£¡
ÒѾÓÐ25È˻ظ´
µ¥¸ö¹ý¶É½ðÊôÔ×ÓÎü¸½µÄʱºòÊÇ·ñÒª²ÉÓÃGGA+U£¬£ÕÖµÈçºÎÈ·¶¨£¿
ÒѾÓÐ4È˻ظ´
UASBÑáÑõ·´Ó¦Æ÷¸Õ¸Õµ÷ÊÔʱ·¢ÏÖÉϲ¿ÓдóÁ¿ÎÛÄมÉÏÀ´£¬ÕâÊÇÔõô»ØÊ°¡£¿Çó´óÉñ°ïÖú·ÖÎö
ÒѾÓÐ30È˻ظ´
ÒÑÍê½á
ÒѾÓÐ23È˻ظ´
GGA+u¶ÔÓÚ²»Í¬µÄ²ÄÁÏ×÷Óò»Ò»ÑùÂð
ÒѾÓÐ16È˻ظ´
×¼±¸Ê¹ÓüÓUµÄ·½·¨À´¼ÆËãZnO£¬Ê¹Æä´øÏ¶Ïò3.37¿¿½ü£¬ÇóÖú¼¸Æª¾µäµÄÎÄÏ×
ÒѾÓÐ12È˻ظ´
CASTEPÄ£¿éÖУ¬LDA+UºÍGGA+UÓÐûÓб¾ÖÊÇø±ð£¿ ΪʲôҪ¼ÓUÄØ£¿
ÒѾÓÐ15È˻ظ´
UASBÔËÐÐÖгöÏÖµÄÎÊÌâ¼°½â´ð
ÒѾÓÐ78È˻ظ´
castepÄ£¿é¶ÔïçLaÈçºÎ¼ÓU¼ÆË㣿£¿£¿Çó´óÉñ½â´ð
ÒѾÓÐ8È˻ظ´
CASTEPÔõô¶Ôµ¥¶ÀµÄ¹ý¶É½ðÊôÔªËØÉèÖÃUÖµ£¬ÔÚÄÄÀïÉ裿
ÒѾÓÐ8È˻ظ´
×¼±¸Ç©Ö¤¹ý³ÌÖÐÓöµ½µÄһЩÎÊÌ⣬ÇóPÖú£¡
ÒѾÓÐ6È˻ظ´
ÐÂÊÖÇóÖúpwscfµÄ½øÐдÅÐÔÔËËãºÍLDA+UÔËËã
ÒѾÓÐ35È˻ظ´
MoF3Óà LDA+U £¬UºÍJÖµ¸ÃÉèÖöàÉÙ
ÒѾÓÐ19È˻ظ´
DFT+UÖжÔUºÍ¿âÂ×¹ØÁªµÄµÄÀí½â
ÒѾÓÐ11È˻ظ´
CASTEP LDA+U µÄUÖµÄÜÉèÖóɸºµÄÂð£¿
ÒѾÓÐ8È˻ظ´
LDA+U»òGGA+U£¬UֵѡȡÎÊÌâ
ÒѾÓÐ14È˻ظ´
¡¾ÇóÖú¡¿Depolar (P) ºÍDepolar (U) ÊÇʲôÒâ˼£¿
ÒѾÓÐ5È˻ظ´
¡¾ÇóÖú¡¿ÇëÎÊÕâ¸öÊÇʲôרÀûU.S. Pat. Appl. Publ.,
ÒѾÓÐ4È˻ظ´
¡¾ÇóÖú¡¿Çë½ÌMS CASTEPÄ£¿éÖеÄLDA+U ¼ÆËã
ÒѾÓÐ6È˻ظ´
¡¾ÇóÖú/½»Á÷¡¿Çë½Ì¸÷λ³æÓÑ£¬Ã¸µ¥Î»BPºÍUÊÇÔõô»»ËãµÄ£¿
ÒѾÓÐ4È˻ظ´
¡¾ÇóÖú¡¿UÖµµÄÈ·¶¨
ÒѾÓÐ14È˻ظ´
¡¾ÇóÖú¡¿ÈçºÎ²é¿´¾§ÌåÄÚ×ø±êu?
ÒѾÓÐ4È˻ظ´

deephill
Ìú¸Ëľ³æ (Ö°Òµ×÷¼Ò)
- Ó¦Öú: 59 (³õÖÐÉú)
- ½ð±Ò: 5262.3
- É¢½ð: 100
- ºì»¨: 16
- Ìû×Ó: 4425
- ÔÚÏß: 425Сʱ
- ³æºÅ: 305318
- ×¢²á: 2006-12-09
- ÐÔ±ð: GG
- רҵ: ΢Á¿ÔªËصØÇò»¯Ñ§
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¡ï ¡ï ¡ï ¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ÇóÕæÎñʵ: ½ð±Ò+5, ¡ïÓаïÖú 2015-04-22 08:09:33
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ÇóÕæÎñʵ: ½ð±Ò+5, ¡ïÓаïÖú 2015-04-22 08:09:33
|
Private Sub Command1_Click() Dim u As Single u = 3 * Log(Text14.Text / Text16.Text) / 0.301 Text18.Text = v(u) End Sub Function v(u As Single) As Integer If u > Fix(u) Then v = Fix(u) + 1 Else v = u End If End Function Ð޸ĺóµÄ³ÌÐò£¬ÄÜÖ´ÐС£ Â¥Ö÷°Ñ¼¸¸ö³ÌÐò¹ý³Ì½ÁÔÚÒ»ÆðÁË£¬·Ö¿ª¾ÍûÓÐÎÊÌâÁË¡£ |
2Â¥2015-04-21 19:52:42
ÇóÕæÎñʵ
ͳæ (СÓÐÃûÆø)
- Ó¦Öú: 4 (Ó×¶ùÔ°)
- ½ð±Ò: 4987.1
- É¢½ð: 98
- ºì»¨: 1
- Ìû×Ó: 238
- ÔÚÏß: 83.4Сʱ
- ³æºÅ: 1978832
- ×¢²á: 2012-09-06
- ÐÔ±ð: GG
- רҵ: ¸ß·Ö×Ó²ÄÁϵļӹ¤Óë³ÉÐÍ

3Â¥2015-04-22 08:09:03













»Ø¸´´ËÂ¥