The R Project SVN R

Rev

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

Rev 75182 Rev 79260
Line 149... Line 149...
149 
	    at = allocVector(REALSXP, n);
 149 
	    at = allocVector(REALSXP, n);
150 
	    dn = axp[0];
 150 
	    dn = axp[0];
151 
	    n = 0;
 151 
	    n = 0;
152 
	    if (0.5 * dn >= umin) REAL(at)[n++] = 0.5 * dn;
 152 
	    if (0.5 * dn >= umin) REAL(at)[n++] = 0.5 * dn;
153 
	    for (;;) {
 153 
	    for (;;) {
154 
		if (dn > umax) break;		REAL(at)[n++] = dn;
 154 
		if (dn > umax) break;
- 
 
 155 
		REAL(at)[n++] = dn;
155 
		if (5 * dn > umax) break;	REAL(at)[n++] = 5 * dn;
 156 
		if (5 * dn > umax) break;
- 
 
 157 
		REAL(at)[n++] = 5 * dn;
156 
		dn *= 10;
 158 
		dn *= 10;
157 
	    }
 159 
	    }
158 
	    break;
 160 
	    break;
159 
 
 161 
 
160 
	case 3: /* small range:	 1,2,5,10 * 10^k */
 162 
	case 3: /* small range:	 1,2,5,10 * 10^k */