| ²é¿´: 1930 | »Ø¸´: 7 | |||
janecoolÌú¸Ëľ³æ (ÖøÃûдÊÖ)
|
[½»Á÷]
¡¾½»Á÷¡¿ºÏÁ÷³¬±Èº¯ÊýµÄ fortran³ÌÐò£¨×Ô¼º¸ã¶¨ÁË£¬²»¹ýҲϣÍûÄãÀ´½»Á÷£©
|
|
ÄÄλ³æ×ÓÊÖÀïÓкÏÁ÷³¬±Èº¯Êý£¨Hypergeometric 1F1£©µÄfortran³ÌÐò£¬Äܲ»ÄÜ·ÖÏíһϣ¬ÎÒ×Ô¼ºÐ´ÁËÒ»¸ö£¬¿ÉÊǺÍmathematicËãµÄ½á¹û²»Ò»Ñù¡£ 1F1(a,b,c)=1+a*c/(b*1!)+a(a+1)*c^2/(b(b+1)*2!) +a(a+1)(a+2)*c^3/(b(b+1)(b+2)*3!)+...... ÏÈÔÚÕâÀïллÁË¡£¡£¡£¡£¡£¡£¡£ PS£º¹þ¹þ£¬¸Õ²ÅдÁËÒ»¸ö£¬¸Ð¾õ´óÌåÉÏÄܶÔÉÏÁË£¬ÎªÁËÒÔºó´ó¼ÒÓÃ×Å·½±ã£¬ÎÒ¾ÍÌùÒ»ÏÂÎÒдµÄ³ÌÐò£¬Ï£ÍûÄãÀ´Ò»Æð½»Á÷£¬ºÇºÇ...... fortran77¸ñʽµÄ£º program fhgfh implicit real*8(a-z) a=0.5 garm=2.5 f=4 z=confluent(a,garm,f) write(*,*) z end c confluent hypergeometric function real*8 function confluent(a,garm,z) implicit real*8(a-z) confluent=1.0 do 11 ii=1,120 confluent=confluent+lianchen(a,ii)*z**ii/ 1 (lianchen(garm,ii)*FACTORIAL(ii)) 11 CONTINUE return END REAL*8 FUNCTION lianchen(a,N) IMPLICIT REAL*8(A-Z) lianchen=a do 22 ii=1,N-1 lianchen=lianchen*(a+ii) 22 CONTINUE return END REAL*8 FUNCTION FACTORIAL(N) IMPLICIT REAL*8(A-Z) FACTORIAL=1.0 DO 101 I=1,N FACTORIAL=FACTORIAL*I 101 CONTINUE return END [ Last edited by janecool on 2011-3-25 at 20:30 ] |
» ²ÂÄãϲ»¶
286Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
085601Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
302Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
¿¼Ñл¯Ñ§Ñ§Ë¶µ÷¼Á£¬Ò»Ö¾Ô¸985
ÒѾÓÐ5È˻ظ´
328Çóµ÷¼Á£¬Ó¢ÓïÁù¼¶551£¬ÓпÆÑоÀú
ÒѾÓÐ4È˻ظ´
»úеר˶325£¬Ñ°ÕÒµ÷¼ÁԺУ
ÒѾÓÐ5È˻ظ´
²ÄÁÏר˶306Ó¢Ò»Êý¶þ
ÒѾÓÐ6È˻ظ´
»ï°éÃÇ£¬×£ÎÒÉúÈÕ¿ìÀÖ°É
ÒѾÓÐ26È˻ظ´
333Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
0854¿ØÖƹ¤³Ì 359Çóµ÷¼Á ¿É¿çרҵ
ÒѾÓÐ9È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
FORTRANÐÂÊÖ ÇóÖúÖ÷³ÌÐòÑ»·ÎÊÌâ
ÒѾÓÐ10È˻ظ´
fortranÖе½µ×¸ÃÈçºÎ±È½ÏÁ½¸öʵÊýÊÇ·ñÏàµÈ
ÒѾÓÐ8È˻ظ´
ÔõÄÜÈÃfortranµ÷ÓÃcµÄfopenºÍfileioº¯Êý
ÒѾÓÐ3È˻ظ´
FortranÖÐ×Ó³ÌÐòÓ뺯ÊýµÄÇø±ð
ÒѾÓÐ7È˻ظ´
ÈçºÎ¸Ä±äfortranµÄ¸¡µã¾«¶È
ÒѾÓÐ28È˻ظ´
¡¾ÇóÖú¡¿ÈçºÎдFORTRAN³ÌÐòʵÏÖÇ󯽾ù×î½üÁÚ¾àÀë
ÒѾÓÐ34È˻ظ´
» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:
µçÁ¦È«¹úÖØµãʵÑéÊÒ˫һÁ÷AÀ೤½Ñ§ÕßÍŶÓÕÐ2026ÄêÈ«ÈÕÖÆ²©Ê¿1Ãû£¨4ÔÂ3ÈÕ½ØÖ¹£©
+2/166
ÄϾ©Ò½¿Æ´óѧÉúֳҽѧÓë×Ó´ú½¡¿µ¹úÖØÊµÑéÊÒ-¶·Éºê¿ÎÌâ×é-ѧÊõ˶ʿÕÐÉú
+1/103
ÎïÀíѧ µ÷¼Á
+1/92
רҵ¼¼Êõ¿ª·¢¼°µÚÈý·½¼ì²â
+1/87
ÎïÀíѧ µ÷¼Á
+1/84
ÏÃÃÅ´óѧµç³Ø¹¤¿ö±íÕ÷²©Ê¿ºóÕÐÆ¸£¨¹Ì̬µç³Ø / ²ã×´Ñõ»¯ÎïÕý¼« / Ôλ-¹¤¿ö±íÕ÷·½Ïò£©
+1/78
»ªÄÏʦ·¶´óѧ£¨211£©²©Ê¿ÕÐÉú- µç×Ó¡¢×Ô¶¯»¯¡¢»úе¡¢ÉúÎïѧ¡¢ÎïÀíÏà¹Ø×¨Òµ
+1/25
н®´óѧÕÐÊÕѧ˶µ÷¼Á
+1/24
ÄÏ¿ª´óѧÂÞ¾°É½½ÌÊÚ¿ÎÌâ×éÕÐÊÕ2026ÄêÈëѧ²©Ê¿Éú£¨¹â/µç´ß»¯·½Ïò£©
+2/20
¸£½¨Ê¦·¶´óѧ»¯Ñ§Óë²ÄÁÏѧԺ¶Å¿ËîÈÍŶӲ©Ê¿/˶ʿÕÐÉú
+1/14
Çൺ¿Æ¼¼´óѧ0860 µ÷¼ÁÕÐÉú
+1/13
¿ÎÌâ×éÕÐÊÕ»·¾³¼°Ïà¹Ø×¨Òµµ÷¼Á˶ʿÑо¿Éú£¨»¶ÓÓÅÐãѧÉú¼ÓÈ룩
+1/7
»ªÖпƼ¼´óѧ¹ÜÀíѧԺÕÐÆ¸Éç»áÓù¤£¨¿ÆÑÐÖúÀí£©1Ãû
+1/7
¸£½¨Ê¦·¶´óѧ ԺʿÍÅ¶Ó ÕÐ2026¼¶²©Ê¿1Ãû
+1/5
·¢paper
+1/5
ÉϺ£Ê¦·¶´óѧ»¯Ñ§Óë²ÄÁÏ¿ÆÑ§Ñ§ÔºÈÎÐÂÒ⸱Ñо¿Ô±ÕÐÊÕµ÷¼ÁѧÉú3-4Ãû£¨Óлú»¯Ñ§×¨Òµ£©
+1/5
Î÷°²½»Í¨´óѧÉúÃüѧԺÖÇÄÜ»¯ÕïÁÆ×°±¸Ñо¿ÖÐÐÄ2026Ä격ʿÉúÕÐÉú
+1/4
Î÷½»ÀûÎïÆÖ´óѧ/µª»¯ïØ»ù CMOS ¼¼ÊõµÄÎïÀíÇý¶¯ÓëÈ˹¤ÖÇÄÜÔöÇ¿·½·¨/Õв©Ê¿Ñо¿Éú
+1/2
ÎÂÖÝ´óѧÕÐÊÕ2026ÄêÈëѧ²©Ê¿Ñо¿Éú£¨»¯Ñ§¡¢²ÄÁÏ¡¢»·¾³£©
+1/1
²ãÁ÷ѹ²îʽÁ÷Á¿²â¿Ø²úÆ·ÔÚ´óÆøÔËά²ÉÑùÁ÷Á¿Ð£×¼ÖеÄÓ¦ÓÃÓëÓÅÊÆ
+1/1
211985:mad:
ľ³æ (ÖøÃûдÊÖ)
- ÎïÀíEPI: 1
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3183.8
- Ìû×Ó: 2483
- ÔÚÏß: 624.3Сʱ
- ³æºÅ: 881385
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Сľ³æ:)(½ð±Ò+10): ÄãÃÇÁ½¸öÈ˵ÄÌÖÂۺܺà 2011-03-26 16:37:15
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Сľ³æ:)(½ð±Ò+10): ÄãÃÇÁ½¸öÈ˵ÄÌÖÂۺܺà 2011-03-26 16:37:15
2Â¥2011-03-26 10:13:36
janecool
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- ÎïÀíEPI: 1
- Ó¦Öú: 54 (³õÖÐÉú)
- ¹ó±ö: 0.006
- ½ð±Ò: 5996.2
- Ìû×Ó: 2070
- ÔÚÏß: 626.6Сʱ
- ³æºÅ: 830148
3Â¥2011-03-26 11:01:33
211985:mad:
ľ³æ (ÖøÃûдÊÖ)
- ÎïÀíEPI: 1
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3183.8
- Ìû×Ó: 2483
- ÔÚÏß: 624.3Сʱ
- ³æºÅ: 881385
¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
|
ÿ¸öÈ˶ԳÌÐò³¤¶ÌµÄÈÏʶ²»Í¬ »¹ÊÇÊýÊý¶àÉÙÐÐ°É CÓïÑÔд ×î¶à30ÐÐ 7¸ö¶¨Òå 7¸ö¸³Öµ 1¸öÑ»·(2¸öÓï¾ä) 1¸öÅжÏ(¿ÉÒÔдÔÚÑ»·Àï) 1¸öÊä³ö ¼´¿É ¼¶ÊýÊÇÊÕÁ²µÄ Ö»ÐèdiСÓÚijֵʱ ÖÕֹѻ· [ Last edited by 211985 on 2011-3-26 at 12:14 ] |
4Â¥2011-03-26 11:52:59
janecool
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- ÎïÀíEPI: 1
- Ó¦Öú: 54 (³õÖÐÉú)
- ¹ó±ö: 0.006
- ½ð±Ò: 5996.2
- Ìû×Ó: 2070
- ÔÚÏß: 626.6Сʱ
- ³æºÅ: 830148
5Â¥2011-03-26 15:31:09
211985:mad:
ľ³æ (ÖøÃûдÊÖ)
- ÎïÀíEPI: 1
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3183.8
- Ìû×Ó: 2483
- ÔÚÏß: 624.3Сʱ
- ³æºÅ: 881385
¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
|
¿¼¼ÆËã»ú¶þ¼¶µÄʱºò ÕâÖÖ³ÌÐò³£×öµÄ Ö»ÊÇÅжÏÊÕÁ² ²»ÊÇ¿¼ÊÔÄÚÈÝ ÐèÒª¹Û²ìһϠ(¹ØÓÚÕâ¸öº¯ÊýµÄÖ¤Ã÷²»ÄÑ) ÏÖÔÚ²»ÓÃCÁË Ã»»ú»áµ÷ÊÔ ![]() [ Last edited by 211985 on 2011-3-26 at 16:18 ] |
6Â¥2011-03-26 16:16:39
7Â¥2013-12-03 00:35:48
janecool
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- ÎïÀíEPI: 1
- Ó¦Öú: 54 (³õÖÐÉú)
- ¹ó±ö: 0.006
- ½ð±Ò: 5996.2
- Ìû×Ó: 2070
- ÔÚÏß: 626.6Сʱ
- ³æºÅ: 830148
8Â¥2013-12-03 20:52:55













»Ø¸´´ËÂ¥
on 2011-3-26 at 10:23 ]
