您所在位置：主题：函数EPSILON什么作用？
20042094
[专家分：0] 发布于 2010-10-15 10:24:00
INTEGER, PARAMETER :: FB = SELECTED_REAL_KIND(6)
INTEGER, PARAMETER :: EB = SELECTED_REAL_KIND(12)
REAL(EB), PARAMETER :: ALMOST_ONE=1._EB-EPSILON(1._EB),ZERO_P=TINY(1._FB)
请高手指教，上述代码中最后一行是什么意思？其中的EPSILON（）和TINY（）的具体作用是什么？谢谢
INTEGER, PARAMETER :: EB = SELECTED_REAL_KIND(12)
REAL(EB), PARAMETER :: ALMOST_ONE=1._EB-EPSILON(1._EB),ZERO_P=TINY(1._FB)
请高手指教，上述代码中最后一行是什么意思？其中的EPSILON（）和TINY（）的具体作用是什么？谢谢