The R Project SVN R

Rev

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

Rev 68947 Rev 69855
Line 131... Line 131...
131 
 
 131 
 
132 
	case 2: /* medium range:  1, 5	  * 10^k */
 132 
	case 2: /* medium range:  1, 5	  * 10^k */
133 
	    n = 0;
 133 
	    n = 0;
134 
	    if (0.5 * dn >= umin) n++;
 134 
	    if (0.5 * dn >= umin) n++;
135 
	    for (;;) {
 135 
	    for (;;) {
136 
		if (dn > umax) break;		n++;
 136 
		if (dn > umax) break;
- 
 
 137 
		n++;
137 
		if (5 * dn > umax) break;	n++;
 138 
		if (5 * dn > umax) break;
- 
 
 139 
		n++;
138 
		dn *= 10;
 140 
		dn *= 10;
139 
	    }
 141 
	    }
140 
	    if (!n)
 142 
	    if (!n)
141 
		error("log - axis(), 'at' creation, _MEDIUM_ range: "
 143 
		error("log - axis(), 'at' creation, _MEDIUM_ range: "
142 
		      "invalid {xy}axp or par;\n"
 144 
		      "invalid {xy}axp or par;\n"
Line 157... Line 159...
157 
	case 3: /* small range:	 1,2,5,10 * 10^k */
 159 
	case 3: /* small range:	 1,2,5,10 * 10^k */
158 
	    n = 0;
 160 
	    n = 0;
159 
	    if (0.2 * dn >= umin) n++;
 161 
	    if (0.2 * dn >= umin) n++;
160 
	    if (0.5 * dn >= umin) n++;
 162 
	    if (0.5 * dn >= umin) n++;
161 
	    for (;;) {
 163 
	    for (;;) {
162 
		if (dn > umax) break;		n++;
 164 
		if (dn > umax) break;
- 
 
 165 
		n++;
163 
		if (2 * dn > umax) break;	n++;
 166 
		if (2 * dn > umax) break;
- 
 
 167 
		n++;
164 
		if (5 * dn > umax) break;	n++;
 168 
		if (5 * dn > umax) break;
- 
 
 169 
		n++;
165 
		dn *= 10;
 170 
		dn *= 10;
166 
	    }
 171 
	    }
167 
	    if (!n)
 172 
	    if (!n)
168 
		error("log - axis(), 'at' creation, _SMALL_ range: "
 173 
		error("log - axis(), 'at' creation, _SMALL_ range: "
169 
		      "invalid {xy}axp or par;\n"
 174 
		      "invalid {xy}axp or par;\n"