| ²é¿´: 718 | »Ø¸´: 3 | |||
[½»Á÷]
ÎÊÒ»¸ö¹ØÓÚº¯Êýµ÷ÓõÄСÎÊÌâ
|
|
Çë½Ì¸öÎÊÌ⣬¿´¿´ÎÒÕâ¸öº¯Êý£¬fortran77дµÄ£º FUNCTION HEAVI(PRIS) REAL*8 PRIS IF(PRIS.GT.0.0) THEN HEAVI=1.0 ENDIF RETURN C IF(PRIS.LT.0.0) THEN HEAVI=0.0 ENDIF RETURN END µ÷ÓõÄʱºò³öÏÖÏÂÁÐÇé¿ö£º HEAVI(-3)=1.00000000000000£¬ HEAVI(-3.0D0)=0.000000000000000E+000£¬ HEAVI(-3.0)=1.00000000000000 HEAVI(3)=1.00000000000000£¬ HEAVI(3.0D0)=1.000000000000000E+000£¬ HEAVI(3.0)=1.00000000000000 ²»ÖªµÀʲôÔÒò£¿ ¸Ä³ÉÕâÑùÔõô¾ÍºÃÁËÄØ£¿ Program ex005 real HEAVI write(*,*) HEAVI(3.0d0) end FUNCTION HEAVI(PRIS) REAL PRIS Real HEAVI IF(PRIS.GT.0.0) THEN HEAVI=1.0 else HEAVI=0.0 ENDIF RETURN END ÓïÑÔFortran77£¬gfortran»·¾³¡£ Çó½âÊÍ¡£ |
» ²ÂÄãϲ»¶
¡¾¿¼Ñе÷¼Á¡¿»¯Ñ§×¨Òµ 281·Ö£¬Ò»Ö¾Ô¸ËÄ´¨´óѧ£¬³ÏÐÄÇóµ÷¼Á
ÒѾÓÐ5È˻ظ´
ÄÜÔ´²ÄÁÏ»¯Ñ§¿ÎÌâ×éÕÐÊÕ˶ʿÑо¿Éú8-10Ãû
ÒѾÓÐ12È˻ظ´
288Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
0703»¯Ñ§µ÷¼Á
ÒѾÓÐ4È˻ظ´
ÕÐÊÕµ÷¼Á˶ʿ
ÒѾÓÐ10È˻ظ´
271²ÄÁϹ¤³ÌÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
²ÄÁÏר˶274Ò»Ö¾Ô¸ÉÂÎ÷ʦ·¶´óѧÇóµ÷¼Á
ÒѾÓÐ8È˻ظ´
Ò»Ö¾Ô¸Î人Àí¹¤²ÄÁϹ¤³Ìר˶µ÷¼Á
ÒѾÓÐ4È˻ظ´
085601²ÄÁϹ¤³Ìר˶Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
Çë½Ì¸öÎÊÌ⣬ΪɶÎҵIJåÖµµã»á³öÏÖ²¨¶¯£¬ÊÇÎÒµ÷Óú¯ÊýµÄÎÊÌâÂð£¿
ÒѾÓÐ3È˻ظ´
matlabÈçºÎ¸Ä±äº¯Êý±äÁ¿ÖµÔÚµ÷Óú¯ÊýÖØÐ¼ÆËã
ÒѾÓÐ12È˻ظ´
matlabµÄº¯Êýµ÷ÓÃÎÊÌâ
ÒѾÓÐ3È˻ظ´
¹ØÓÚerfinvº¯Êýµ÷ÓôíÎóµÄÎÊÌâ
ÒѾÓÐ4È˻ظ´
Ò»¸ö¹¹Ô캯Êýµ÷ÓÃÎÊÌâ¡¡
ÒѾÓÐ4È˻ظ´
Çë½ÌÈçºÎµ÷ÓÃModuleÀïÃæµÄº¯Êý£¬Ð»Ð»
ÒѾÓÐ6È˻ظ´
intel fortran ÈçºÎµ÷Óà matlabÀïÃæµÄº¯Êý
ÒѾÓÐ5È˻ظ´
²ËÄñÎÊÌ⣺VC++µ÷Óú¯Êý¹Ø±Õ×Ó´°¿ÚµÄÎÊÌâ
ÒѾÓÐ4È˻ظ´
¡¾ÌÖÂÛ¡¿¹ØÓÚÒ»¸ömÎļþÖк¯Êýµ÷Óü°»Í¼ÎÊÌâ
ÒѾÓÐ7È˻ظ´
¡¾½»Á÷¡¿VC++, C#, VB´ðÒÉרÌù
ÒѾÓÐ145È˻ظ´
» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:
»¶Ó½»Á÷×Éѯ
+1/47
ßÅßáÃÀÐÁÔÁÏÒ©ºÏ³É½»Á÷
+1/44
0854µç×ÓÐÅÏ¢µ÷¼Á£¬ÃöÄÏʦ´ó¹âµçоƬÑз¢ÊµÑéÊÒ
+1/37
Öйú¿ÆÑ§Ôºº¼ÖÝҽѧÑо¿Ëùñû½½¿ÎÌâ×éÕÐÆ¸²©Ê¿ºó
+1/33
Õã½ÖÐÒ½Ò©´óѧ¸±Ð£³¤ÍŶÓÕÐÆ¸Ò©Ñ§/ÉúÎïÐÅϢѧµÈ·½Ïò¸ßУ½Ìʦ7Ãû£¬±¨ÃûͨµÀÒÑ¿ªÆô
+1/19
ÄϾ©ÁÖÒµ´óѧľÖÊÏËά¹¦ÄܲÄÁϹú¼ÊÁªºÏ´´ÐÂÖÐÐÄÕÐÊÕ2026¼¶²©Ê¿Éú£¨ÉêÇë-¿¼ºËÖÆ£©
+2/16
¡¾Ô¤Ë¶¡¿¡¾Ô¤²©¡¿Çൺ´óѧÉúÎïÒ½Ò©´´ÐÂת»¯
+1/15
Call for paper: [Fermentation ¨C IF 3.3]
+2/8
ÐÂ¼ÓÆÂ¹úÁ¢´óѧҩѧϵ»¯Ñ§ÉúÎïѧ¿ÎÌâ×éÕÐPhD
+1/8
»¶ÓÉúÎïÓëÒ½Ò©¡¢Ò©Ñ§¡¢»¯Ñ§µÈÏà¹Ø×¨ÒµµÄͬѧ
+1/7
ºÓÄÏ´óѧ¹¨ºÍ¹ó½ÌÊÚ2026Ä격ʿÑо¿ÉúÕÐÉú
+1/7
ÐÂ¼ÓÆÂ¹úÁ¢´óѧҩѧϵ»¯Ñ§ÉúÎïѧ¿ÎÌâ×éÕÐPhD
+1/5
ÈýÏ¿´óѧ ÕÐÊÕÁ¦Ñ§×¨Òµµ÷¼ÁÉú ÒªÇó¹ý¹ú¼ÒÏß ÍÁľ/Ë®Àû/²ÄÁϾù¿É±¨
+1/5
¶«±±ÁÖÒµ´óѧ£¨211£¬Ë«Ò»Á÷£©ËÎÀÏʦ¿ÎÌâ×éÕÐÊո߷Ö×Ó¡¢»¯Ñ§¡¢¸´ºÏ²ÄÁϵȷ½ÏòÑо¿Éú
+1/4
ÖпÆÔºÉϺ£Î¢ÏµÍ³Ëù²ÄÁÏÉú³¤ÀíÂÛÓë·ÂÕæ¿ÎÌâ×é-²©Ê¿ºóÕÐÆ¸£¨²ÄÁϼÆËãÓëAI4S£©
+1/4
Õò½Íжû»¯Ñ§ÓлúºÏ³ÉÑз¢¸Úλ¹¤×÷»ú»á
+1/4
ÄÏ·½¿Æ¼¼´óѧÉúÃü¿ÆÑ§Ñ§Ôº»ù´¡ÃâÒßÓë΢ÉúÎïѧϵÕÐÊÕ²©Ê¿ºó
+1/3
323·Ö¿ØÖƹ¤³ÌÇóµ÷¼Á
+1/2
Õã½´óѧ¸ß´¿·ÖÀëÍÅ¶Ó³ÏÆ¸²©Ê¿ºó
+1/2
Î人ÇṤ´óѧÍÁľˮÀûÇཷ˶µ¼Õе÷¼Á
+1/1
snoopyzhao
ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)
- ³ÌÐòÇ¿Ìû: 16
- Ó¦Öú: 157 (¸ßÖÐÉú)
- ¹ó±ö: 0.02
- ½ð±Ò: 18844.7
- Ìû×Ó: 3803
- ÔÚÏß: 1422.4Сʱ
- ³æºÅ: 183750
¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶ÓÌÖÂÛ 2011-11-11 23:31:16
guojunhang(½ð±Ò+1): Õâ¸öÎÊÌâÎÒÒ²×¢Òâµ½ÁË£¬ËùÒÔ¸ÄÕýºóÁ˳ÌÐòÁ÷³Ì 2011-11-13 18:27:43
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶ÓÌÖÂÛ 2011-11-11 23:31:16
guojunhang(½ð±Ò+1): Õâ¸öÎÊÌâÎÒÒ²×¢Òâµ½ÁË£¬ËùÒÔ¸ÄÕýºóÁ˳ÌÐòÁ÷³Ì 2011-11-13 18:27:43
| ÄãµÚÒ»¸ö³ÌÐòÖеÚÒ»¸ö return Ö±½Ó¾Í½áÊøÁËÄǸöº¯Êý£¬ºóÃæµÄÄǸöÌõ¼þÓÀÔ¶²»»á±»Ö´Ðа¡¡¡ |
2Â¥2011-11-11 22:53:36
maomao1210
½ð³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ½ð±Ò: 1432.8
- Ìû×Ó: 991
- ÔÚÏß: 442.1Сʱ
- ³æºÅ: 253215
¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-12 00:41:19
ÓàÔó³É: ר¼Ò¿¼ºË´æµµ 2011-11-13 21:35:24
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-12 00:41:19
ÓàÔó³É: ר¼Ò¿¼ºË´æµµ 2011-11-13 21:35:24
|
Ã²ËÆ±äÁ¿¶¨ÒåÒ²ÓÐÎÊÌ⣬µÚÒ»¸öº¯ÊýÖÐÓõÄÊÇreal*8,Ö÷³ÌÐò¸øµÄÓÐʱºòÊÇreal*8 ,ÓÐʱºòÊÇreal*4 [ Last edited by maomao1210 on 2011-11-11 at 23:00 ] |
3Â¥2011-11-11 22:55:13
¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-12-12 22:29:29
jjdg(½ð±Ò+1): ¸ÐлӦÖú 2011-12-13 00:49:52
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-12-12 22:29:29
jjdg(½ð±Ò+1): ¸ÐлӦÖú 2011-12-13 00:49:52
| °ÑµÚÒ»¸öif¿éÖеÄreturnÈ¥µô |
4Â¥2011-12-12 14:57:58













»Ø¸´´ËÂ¥