The R Project SVN R

Rev

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

Rev 79260 Rev 79262
Line 181... Line 181...
181 
	    dn = axp[0];
 181 
	    dn = axp[0];
182 
	    n = 0;
 182 
	    n = 0;
183 
	    if (0.2 * dn >= umin) REAL(at)[n++] = 0.2 * dn;
 183 
	    if (0.2 * dn >= umin) REAL(at)[n++] = 0.2 * dn;
184 
	    if (0.5 * dn >= umin) REAL(at)[n++] = 0.5 * dn;
 184 
	    if (0.5 * dn >= umin) REAL(at)[n++] = 0.5 * dn;
185 
	    for (;;) {
 185 
	    for (;;) {
186 
		if (dn > umax) break;		REAL(at)[n++] = dn;
 186 
		if (dn > umax) break;
- 
 
 187 
		REAL(at)[n++] = dn;
187 
		if (2 * dn > umax) break;	REAL(at)[n++] = 2 * dn;
 188 
		if (2 * dn > umax) break;
- 
 
 189 
		REAL(at)[n++] = 2 * dn;
188 
		if (5 * dn > umax) break;	REAL(at)[n++] = 5 * dn;
 190 
		if (5 * dn > umax) break;
- 
 
 191 
		REAL(at)[n++] = 5 * dn;
189 
		dn *= 10;
 192 
		dn *= 10;
190 
	    }
 193 
	    }
191 
	    break;
 194 
	    break;
192 
	default:
 195 
	default:
193 
	    error("log - axis(), 'at' creation: INVALID {xy}axp[3] = %g",
 196 
	    error("log - axis(), 'at' creation: INVALID {xy}axp[3] = %g",