The R Project SVN R

Rev

Rev 71308 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 71308 Rev 75203
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 - 
 
4 
 *  Copyright (C) 1997--2014  The R Core Team
 3 
 *  Copyright (C) 1997--2018  The R Core Team
5 
 *  Copyright (C) 2002--2009  The R Foundation
 4 
 *  Copyright (C) 2002--2009  The R Foundation
- 
 
 5 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
6 
 *
 6 
 *
7 
 *  This program is free software; you can redistribute it and/or modify
 7 
 *  This program is free software; you can redistribute it and/or modify
8 
 *  it under the terms of the GNU General Public License as published by
 8 
 *  it under the terms of the GNU General Public License as published by
9 
 *  the Free Software Foundation; either version 2 of the License, or
 9 
 *  the Free Software Foundation; either version 2 of the License, or
10 
 *  (at your option) any later version.
 10 
 *  (at your option) any later version.
Line 86... Line 86...
86 
	umin *= 1 - 1e-12;
 86 
	umin *= 1 - 1e-12;
87 
	umax *= 1 + 1e-12;
 87 
	umax *= 1 + 1e-12;
88 
 
 88 
 
89 
	dn = axp[0];
 89 
	dn = axp[0];
90 
	if (dn < DBL_MIN) {/* was 1e-300; now seems too cautious */
 90 
	if (dn < DBL_MIN) {/* was 1e-300; now seems too cautious */
91 
	    warning("CreateAtVector \"log\"(from axis()): axp[0] = %g !", dn);
 - 
 
92 
	    if (dn <= 0) /* real trouble (once for Solaris) later on */
 91 
	    if (dn <= 0) /* real trouble (once for Solaris) later on */
93 
		error("CreateAtVector [log-axis()]: axp[0] = %g < 0!", dn);
 92 
		error("CreateAtVector [log-axis()]: axp[0] = %g < 0!", dn);
- 
 
 93 
	    else
- 
 
 94 
		warning("CreateAtVector [log-axis()]: small axp[0] = %g", dn);
94 
	}
 95 
	}
95 
 
 96 
 
96 
	/* You get the 3 cases below by
 97 
	/* You get the 3 cases below by
97 
	 *  for (y in 1e-5*c(1,2,8))  plot(y, log = "y")
 98 
	 *  for (y in 1e-5*c(1,2,8))  plot(y, log = "y")
98 
	 */
 99 
	 */