Displaying 5 results from an estimated 5 matches for "i_small".
2017 Aug 11
2
Issues of R_pretty in src/appl/pretty.c
...1e9, but
pretty(c(-1,1)*1e300, n = 1e6, min.n = 1) gave 1000000 intervals
(on a machine), made me trace through the code to function 'R_pretty' in https://svn.r-project.org/R/trunk/src/appl/pretty.c .
*lo is -1e300, *up is 1e300.
cell = fmax2(fabs(*lo),fabs(*up));
'cell' is 1e300.
i_small = dx < cell * U * imax2(1,*ndiv) * DBL_EPSILON *3;
When *ndiv is (int) 1e9, apparently cell * U * imax2(1,*ndiv) overflows to infinity and 'i_small' is 1 (true). It doesn't happen when *ndiv is (int) 1e6.
Putting parentheses may avoid the floating point overflow. For example,
i_smal...
2017 Aug 18
1
Issues of R_pretty in src/appl/pretty.c
...; (on a machine), made me trace through the code to function 'R_pretty' in https://svn.r-project.org/R/trunk/src/appl/pretty.c .
? ? > thank you.
? ? >> *lo is -1e300, *up is 1e300.
? ? >> cell = fmax2(fabs(*lo),fabs(*up));
? ? >> 'cell' is 1e300.
? ? >> i_small = dx < cell * U * imax2(1,*ndiv) * DBL_EPSILON *3;
? ? >> When *ndiv is (int) 1e9, apparently cell * U * imax2(1,*ndiv) overflows to infinity and 'i_small' is 1 (true). It doesn't happen when *ndiv is (int) 1e6.
[[elided Yahoo spam]]
? ? >> Putting parentheses may avoid...
2017 Aug 14
0
Issues of R_pretty in src/appl/pretty.c
...1000000 intervals
> (on a machine), made me trace through the code to function 'R_pretty' in https://svn.r-project.org/R/trunk/src/appl/pretty.c .
thank you.
> *lo is -1e300, *up is 1e300.
> cell = fmax2(fabs(*lo),fabs(*up));
> 'cell' is 1e300.
> i_small = dx < cell * U * imax2(1,*ndiv) * DBL_EPSILON *3;
> When *ndiv is (int) 1e9, apparently cell * U * imax2(1,*ndiv) overflows to infinity and 'i_small' is 1 (true). It doesn't happen when *ndiv is (int) 1e6.
well spotted!
> Putting parentheses may avoid the floating po...
1998 May 06
0
Compiling on SGI Irix 5.3
...1998
***************
*** 805,812 ****
*ndiv = nu - ns;
if(*ndiv <= 0)
! printf("Gpretty(%g,%g,%d): cell=%g, ndiv= %d <=0;\t\t(ns,nu)=(%d,%d);
! dx=%g, unit=%3e, ismall=%1d.\n",
x1,x2, nd0, cell, *ndiv, ns, nu, dx, unit, (int)i_small);
}
--- 805,812 ----
*ndiv = nu - ns;
if(*ndiv <= 0)
! printf("Gpretty(%g,%g,%d): cell=%g, ndiv= %d <=0;\t\t(ns,nu)=(%d,%d);"
! "\t\t dx=%g, unit=%3e, ismall=%1d.\n",
x1,x2, nd0, cell, *ndiv, ns, nu, dx, unit,...
2001 Feb 17
4
Comments on R-1.2.1 builds (PR#851)
...-----------------------------------------------------------
c89 -I. -I../../src/include -I../../src/include -I/usr/local/include -DHAVE_CONFIG_H -OPT:IEEE_NaN_inf=ON -g -c pretty.c -o pretty.o
cc-1185 c89: WARNING File = pretty.c, Line = 82
An enumerated type is mixed with another type.
i_small = dx < cell * U * imax2(1,*ndiv) * DBL_EPSILON *3;
^
------------------------------------------------------------------------
c89 -I. -I../../src/include -I../../src/include -I/usr/local/include -DHAVE_CONFIG_H -OPT:IEEE_NaN_inf=ON -g -c strsignif.c -o strsignif.o
cc-1552 c89:...