²é¿´: 999  |  »Ø¸´: 5

btx97

½ð³æ (СÓÐÃûÆø)

[ÇóÖú] fortranÀïµÄintrisic function: precision()x½á¹û±íʾʲôÒâ˼

CODE:
program test          
implicit none        
       
write(*,*) precision(4.5)                                ! ½á¹ûΪ6         
write(*,*) 1.23456789==1.23456788                !½á¹ûΪT        
write(*,*) 1.2345678==1.2345677                        !½á¹ûΪF        
write(*,*) 0.00012345678==0.00012345679                !½á¹ûΪF        
write(*,*) 0.000123456789==0.000123456788                !½á¹ûΪT  
end program test

ÎÒÖ±¹ÛµÄÀí½â£¬precisionµÄ½á¹û±íʾµÄÓ¦¸ÃÊÇÊýÖµ¾«¶È¼´ÓÐЧÊý×ÖµÄλÊý¡£ÒÔÉϳÌÐòÔÚCVF6.5ÀïÔËÐеģ¬ËäÈ»precision·µ»ØµÄ½á¹ûÊÇ6£¬µ«ºóÃæµÄ½á¹û²»ÊDZíÃ÷fortranÄÚ²¿´¦Àíµ¥¾«¶ÈÊýÊǰ´ÓÐЧλÊý8λÀ´´¦ÀíµÄÂ𣿠 ÄÄλ¸ßÊÖÀ´°ïæ½â»ó£¬²¢ÌÖÂÛÌÖÂÛ¶ÔprecisionµÄÀí½â¡£

[ Last edited by btx97 on 2013-6-19 at 22:14 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
»ØÌûÖö¥ ( ¹²ÓÐ1¸ö )

btx97

½ð³æ (СÓÐÃûÆø)

btx97: »ØÌûÖö¥ 2013-06-20 18:41:47
ÒýÓûØÌû:
5Â¥: Originally posted by pippi6 at 2013-06-20 06:36:17
ÕâÐèÒªÀí½âʵÊýÄ£ÐÍ¡£ÒÔµ¥¾«¶ÈΪÀý£¬ ÔÚcompag fortranÀïÊÇ 4 bytes =32 bits¡£ÆäÖÐ 8 bits ÊÇÖ¸Êý£¬23bits ÊÇÓÐЧÊý×Ö£¬1 bit ÊÇ·ûºÅ¡£23  bits ×î´ó¿ÉÒÔ ³ÐÔØ 2**23=8388608 = 10** 6.9236899  Õâô´óµÄ·Ç¸ºÊý×Ö ...

ллÌÖÂÛ¡£ÎÒ×Ô¼ºÒ²²éÁËЩ×ÊÁÏ¡£
fortranÀï¹ØÓÚµ¥¾«¶ÈÏàµÈµÄÅжϿÉÄÜÊÇÕâÑùµÄ£º
µ±µÚÒ»¸öÓÐЧÊý×ÖСÓÚ5ʱÆä¾«¶ÈΪ8¼´ÐèÒªÅжÏÇ°Ãæ8¸öÊý×ÖÊÇ·ñÏàµÈ£¬
µ±µÚÒ»¸öÓÐЧÊý×Ö´óÓÚµÈÓÚ5ʱÆä¾«¶ÈΪ7¼´ÐèÒªÅжÏÇ°Ãæ7¸öÊý×ÖÊÇ·ñÏàµÈ¡£
²»¹ýÕâ¸ö¸úprecision£¨4.5£©£½6Óеã˵²»Í¨Ñ½£¬±Ï¾¹precision¾ÍÊǾ«¶ÈµÄÒâ˼ѽ¡£²»¹ý¼ÓÁ½¸öÌõ¼þ¾Í³É6ÁË£º 1£¬ ×îС¾«¶È¡£ 2£¬ÓÐЧÊý×Ö£¨»úÆ÷ÓÐЧÊý£¿£¿£©ÖÐ×îºóһλ¶¨Îª¹ÀÖµ²»Ëãµ½¾«¶ÈÀïÃæ¡£
ºÃǣǿѽ
6Â¥2013-06-20 18:41:05
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
ÆÕͨ»ØÌû

pippi6

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ben_ladeng: ½ð±Ò+1, ллָ½Ì 2013-06-20 21:50:31
precision ÊÇfortranµÄÒ»¸öÄÚ²¿º¯Êý£¬ ±êÃ÷ʵ±äÁ¿µÄÊ®½øÖƾ«¶ÈµÄÈ¡Õû×Ö³¤¡£precision£¨x)=6   Èç¹û x Êǵ¥¾«¶È£¬precision£¨x)=15   Èç¹û x ÊÇË«¾«¶È¡£µ¥¾«¶ÈʹÓÃ24bit£¬Ò»Î»×÷Ϊ·ûºÅ£¬Ê£ÏµÄ×÷Ϊ×Ö³¤£¬ËùÒÔÊ®½øÖÆ×Ö³¤Îª 23*log10£¨2£©=6.9236899£¬È¡ÕûΪ6£»ÀàËÆË«¾«¶ÈʹÓÃ53bit£¬ ×Ö³¤Îª 52*log10£¨2£©=15.65355977£¬È¡ÕûΪ15¡£ËùÒÔ£¬Ë«¾«¶È±Èµ¥¾«¶ÈµÄÁ½±¶Òª¸ßһЩ £º£©¡£
2Â¥2013-06-20 07:18:26
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

pippi6

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

ÁíÍ⣬
write(*,*) 0.00012345678==0.00012345679                !½á¹ûΪF
µ«
write(*,*) 0.00052345678==0.00052345679                !½á¹û¾ÍΪT
ËùÒÔ£¬²¢²»ÊÇÕæµÄ8λÊý
3Â¥2013-06-20 07:46:19
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

btx97

½ð³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
2Â¥: Originally posted by pippi6 at 2013-06-20 00:18:26
precision ÊÇfortranµÄÒ»¸öÄÚ²¿º¯Êý£¬ ±êÃ÷ʵ±äÁ¿µÄÊ®½øÖƾ«¶ÈµÄÈ¡Õû×Ö³¤¡£precision£¨x)=6   Èç¹û x Êǵ¥¾«¶È£¬precision£¨x)=15   Èç¹û x ÊÇË«¾«¶È¡£µ¥¾«¶ÈʹÓÃ24bit£¬Ò»Î»×÷Ϊ·ûºÅ£¬Ê£ÏµÄ×÷Ϊ×Ö³¤£¬ËùÒÔÊ®½øÖÆ×Ö ...

лл¡£²»¹ýÄãÄܽâÊÍÏ£¬µ¥¾«¶ÈÏÂ23*log10(2)ÊÇʲôÒâ˼£¬ÆäÈ¡ÕûºóµÄ6ÓÐʲôÒâÒ壬ÓÐʲôʵ¼ÊÓ¦ÓÃÂ𣿠ÁíÍ⣬write(*,*) 0.00052345678==0.00052345679 Õâ¸öÄãÔõôÕÒµ½µÄ£¿
4Â¥2013-06-20 12:46:12
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

pippi6

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï ¡ï ¡ï
btx97: ½ð±Ò+5, ¡ï¡ï¡ïºÜÓаïÖú, ллÌÖÂÛ 2013-06-20 17:13:39
ÒýÓûØÌû:
4Â¥: Originally posted by btx97 at 2013-06-20 12:46:12
лл¡£²»¹ýÄãÄܽâÊÍÏ£¬µ¥¾«¶ÈÏÂ23*log10(2)ÊÇʲôÒâ˼£¬ÆäÈ¡ÕûºóµÄ6ÓÐʲôÒâÒ壬ÓÐʲôʵ¼ÊÓ¦ÓÃÂ𣿠ÁíÍ⣬write(*,*) 0.00052345678==0.00052345679 Õâ¸öÄãÔõôÕÒµ½µÄ£¿...

ÕâÐèÒªÀí½âʵÊýÄ£ÐÍ¡£ÒÔµ¥¾«¶ÈΪÀý£¬ ÔÚcompag fortranÀïÊÇ 4 bytes =32 bits¡£ÆäÖÐ 8 bits ÊÇÖ¸Êý£¬23bits ÊÇÓÐЧÊý×Ö£¬1 bit ÊÇ·ûºÅ¡£23  bits ×î´ó¿ÉÒÔ ³ÐÔØ 2**23=8388608 = 10** 6.9236899  Õâô´óµÄ·Ç¸ºÊý×Ö£¬ÔÚÊ®½øÖÆÀï¾ÍÊÇ˵×î´óλÊýΪ  log10 £¨2**23£©=23*log10£¨2£©= 6.9236899 ¡£È¡ÕûûʲôÒâÒ壬²»¹ý¾ÍÊÇÒ»°ã²»Ëµ6.92λÊý×Ö£¬¶øËµ6λÊý×Ö¡£µ«ÎÒÄþԸ˵½Ó½ü7λÓÐЧÊý×Ö£¬¸ü²»Ò×Î󵼡£

ÓÐÒ»µãÒ²ÐíÓ¦¸Ã×¢Ò⣬compag fortran £¨ÒÔǰµÄdigital vax fortran£©Ë«¾«¶È´æ´¢µÄÓÐЧÊý×ÖÊÇ56bits£¬µ«¼ÆËãÓÐЧÊý×ÖÊÇ53bits¡£ÏàÐÅintel fortranÓ¦ÀàËÆ¡£

Ïêϸ¿É¶Á fortran help under ¡®Model for Real Data ¡¯ ºÍ 'Data Representation'¡£

ÖÁÓÚ write(*,*) 0.00052345678==0.00052345679 ¾ÍÊǸöÊÔ¡£write(*,*) 0.00042345678==0.00042345679 »¹ÊÇFÄØ¡£
5Â¥2013-06-20 13:36:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ btx97 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[˶²©¼ÒÔ°] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 8rmuugja8q 2026-02-22 7/350 2026-02-23 09:44 by w4l55oybr1
[¿¼ÑÐ] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 khieu8v8m0 2026-02-22 8/400 2026-02-23 09:35 by w4l55oybr1
[ÂÛÎÄͶ¸å] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 khieu8v8m0 2026-02-22 8/400 2026-02-23 09:29 by w4l55oybr1
[¿¼ÑÐ] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +5 usprnugpzw 2026-02-21 11/550 2026-02-23 09:24 by w4l55oybr1
[½Ìʦ֮¼Ò] ΪʲôÖйú´óѧ¹¤¿Æ½ÌÊÚÃÇË®ÁËÄÇô¶àËùνµÄ¶¥»á¶¥¿¯£¬µ«»¹ÊÇ×ö²»³öÓîÊ÷»úÆ÷ÈË£¿ +5 »¶ÀÖËÌÒ¶Ýè 2026-02-21 8/400 2026-02-23 09:19 by »¶ÀÖËÌÒ¶Ýè
[ÂÛÎÄͶ¸å] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 w89i99eaeh 2026-02-22 5/250 2026-02-23 08:04 by w4l55oybr1
[²©ºóÖ®¼Ò] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 khieu8v8m0 2026-02-22 6/300 2026-02-23 07:59 by w4l55oybr1
[²©ºóÖ®¼Ò] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +6 3dfhjxgsh7 2026-02-22 9/450 2026-02-23 07:49 by w4l55oybr1
[¿¼²©] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 khieu8v8m0 2026-02-22 4/200 2026-02-23 06:46 by jsjzfl
[¹«Åɳö¹ú] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 khieu8v8m0 2026-02-22 5/250 2026-02-23 06:29 by w4l55oybr1
[¿¼²©] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +5 3dfhjxgsh7 2026-02-22 6/300 2026-02-23 02:04 by 5jlh3qtdvx
[½Ìʦ֮¼Ò] °æÃæ·Ñ¸Ã½»Âð +7 Æ»¹ûÔÚÄÄÀï 2026-02-22 8/400 2026-02-22 22:37 by otani
[»ù½ðÉêÇë] ÃæÉÏ¿ÉÒÔ³¬¹ý30Ò³°É£¿ +4 °¢À­¹±aragon 2026-02-22 4/200 2026-02-22 21:22 by ɽÎ÷Ðü¿ÕË¿ÕÐüÎ
[ÂÛÎÄͶ¸å] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +4 usprnugpzw 2026-02-21 6/300 2026-02-22 19:48 by w89i99eaeh
[¿¼ÑÐ] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 3dfhjxgsh7 2026-02-22 4/200 2026-02-22 16:52 by khieu8v8m0
[ÕÒ¹¤×÷] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 usprnugpzw 2026-02-22 3/150 2026-02-22 16:37 by khieu8v8m0
[¹«Åɳö¹ú] ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼± +3 usprnugpzw 2026-02-21 4/200 2026-02-22 16:27 by khieu8v8m0
[»ù½ðÉêÇë] ¡°ÈËÎÄÉç¿Æ¶øÂÛ£¬Ðí¶àѧÊõÑо¿»¹Ã»ÓдﵽÃñ¹úʱÆÚµÄˮƽ¡± +4 ËÕ¶«ÆÂ¶þÊÀ 2026-02-18 5/250 2026-02-22 16:07 by liangep1573
[»ù½ðÉêÇë] ½ñÄê´ºÍíÓм¸¸ö½ÚÄ¿ºÜ²»´í£¬µãÔÞ£¡ +11 ˲ϢÓîÖæ 2026-02-16 12/600 2026-02-21 21:14 by lq493392203
[»ù½ðÉêÇë] ÌåÖÆÄÚ³¤±²ËµÌåÖÆÄÚ¾ø´ó²¿·ÖÒ»±²×ÓÔڵײ㣬ÈçͬÄãÃÇÒ»Ñù´ó²¿·ÖÆÕͨ½ÌʦæÇÒÊÕÈëµÍ +9 ˲ϢÓîÖæ 2026-02-20 12/600 2026-02-21 10:39 by »¶ÀÖËÌÒ¶Ýè
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û