²é¿´: 1015  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ¶ì¶ì¶ì¶î¶î¶î¶î¶ 2026-03-24 4/200 2026-03-24 16:41 by peike
[¿¼ÑÐ] 0856²ÄÁÏר˶353Çóµ÷¼Á +5 NIFFFfff 2026-03-20 5/250 2026-03-24 11:46 by 544594351
[¿¼ÑÐ] 335Çóµ÷¼Á +4 yuyuÓî 2026-03-23 5/250 2026-03-23 23:49 by Txy@872106
[¿¼ÑÐ] 0854 ¿¼Ñе÷¼Á ÕÐÉúÁË£¡AI ·½Ïò +4 pk3725069 2026-03-19 16/800 2026-03-23 23:09 by Íô£¡£¿£¡
[¿¼ÑÐ] 284Çóµ÷¼Á +3 yanzhixue111 2026-03-23 6/300 2026-03-23 22:58 by pswait
[¿¼ÑÐ] ÉϺ£µçÁ¦´óѧ²ÄÁÏ·À»¤ÓëвÄÁÏÖØµãʵÑéÊÒÕÐÊÕµ÷¼ÁÑо¿Éú£¨²ÄÁÏ¡¢»¯Ñ§¡¢µç»¯Ñ§£¬»·¾³£© +3 ÎÒ°®Ñ§µç³Ø 2026-03-23 3/150 2026-03-23 17:16 by AZMK
[¿¼ÑÐ] 276Çóµ÷¼Á +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by ×íÔÚ·çÀï
[¿¼ÑÐ] Ò»Ö¾Ô¸070300Õã´ó»¯Ñ§358·Ö£¬Çóµ÷¼Á£¡ +4 ËÖËÖÓã.. 2026-03-21 4/200 2026-03-23 08:12 by Iveryant
[¿¼ÑÐ] 307Çóµ÷¼Á +11 ÀäóÏ123 2026-03-17 11/550 2026-03-22 20:16 by edmund7
[¿¼ÑÐ] 319Çóµ÷¼Á +4 СÁ¦Æøçæçæ 2026-03-20 4/200 2026-03-22 15:53 by ColorlessPI
[¿¼ÑÐ] ÉúÎïѧµ÷¼Á +5 Surekei 2026-03-21 5/250 2026-03-22 14:39 by tcx007
[¿¼ÑÐ] 318Çóµ÷¼Á +4 plumÀî×Ó 2026-03-21 7/350 2026-03-22 14:17 by ColorlessPI
[¿¼ÑÐ] 0805 316Çóµ÷¼Á +3 ´óÑ©Éî²Ø 2026-03-18 3/150 2026-03-21 18:55 by ѧԱ8dgXkO
[¿¼ÑÐ] 297Çóµ÷¼Á +11 Ï·¾«µ¤µ¤µ¤ 2026-03-17 12/600 2026-03-21 17:47 by ColorlessPI
[¿¼ÑÐ] ²ÄÁÏѧѧ˶080502 337Çóµ÷¼Á-Ò»Ö¾Ô¸»ªÖпƼ¼´óѧ +4 ˳˳˳mr 2026-03-18 5/250 2026-03-21 10:22 by luoyongfeng
[¿¼ÑÐ] 294Çóµ÷¼Á²ÄÁÏÓ뻯¹¤×¨Ë¶ +15 ݤÎÉ­ÁÖ 2026-03-18 15/750 2026-03-20 23:28 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸Î人Àí¹¤²ÄÁϹ¤³Ìר˶µ÷¼Á +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[¿¼ÑÐ] 290Çóµ÷¼Á +7 ^O^Ø¿ 2026-03-19 7/350 2026-03-20 21:43 by JourneyLucky
[¿¼ÑÐ] 295¸´ÊÔµ÷¼Á +8 ¼òľChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤µ÷¼Á 324·Ö +10 llllkkkhh 2026-03-18 12/600 2026-03-19 14:33 by llllkkkhh
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û