The R Project SVN R

Rev

Rev 10973 | Rev 36986 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10973 Rev 11499
Line 42... Line 42...
42 
 
 42 
 
43 
    case 4: /* = FLT_RADIX  ^ (1- DBL_MANT_DIG) =
 43 
    case 4: /* = FLT_RADIX  ^ (1- DBL_MANT_DIG) =
44 
	      for IEEE:  = 2^52 = 4503599627370496 = 1/DBL_EPSILON */
 44 
	      for IEEE:  = 2^52 = 4503599627370496 = 1/DBL_EPSILON */
45 
	return pow((double)i1mach(10), 1-(double)i1mach(14));
 45 
	return pow((double)i1mach(10), 1-(double)i1mach(14));
46 
 
 46 
 
47 
    case 5: return log10(2.0);/* = M_LOG10_2 in Mathlib.h */
 47 
    case 5: return log10(2.0);/* = M_LOG10_2 in Rmath.h */
48 
 
 48 
 
49 
 
 49 
 
50 
    default: return 0.0;
 50 
    default: return 0.0;
51 
    }
 51 
    }
52 
}
 52 
}