The R Project SVN R

Rev

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

Rev 34397 Rev 34399
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, 1997  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996, 1997  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 2000		    The R Development Core Team.
 4 
 *  Copyright (C) 2000-5       	    The R Development Core Team.
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
9 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 353... Line 353...
353 
        r->i = (y2 <0 ? -1.0 : 1.0);
 353 
        r->i = (y2 <0 ? -1.0 : 1.0);
354 
}
 354 
}
355 
 
 355 
 
356 
	/* Complex Arcsin and Arccos Functions */
 356 
	/* Complex Arcsin and Arccos Functions */
357 
	/* Equation (4.4.37) Abramowitz and Stegun */
 357 
	/* Equation (4.4.37) Abramowitz and Stegun */
358 
 	/* with additional terms to force the branch
 358 
 	/* with additional terms to force the branch */
359 
 	/* to agree with figure 4.4, p79.  Continuity */
 359 
 	/* to agree with figure 4.4, p79.  Continuity */
360 
 	/* on the branch cuts (real axis; y==0, |x| > 1) is */
 360 
 	/* on the branch cuts (real axis; y==0, |x| > 1) is */
361 
 	/* standard: z_asin() is continuous from below if x >= 1 */
 361 
 	/* standard: z_asin() is continuous from below if x >= 1 */
362 
 	/* and continuous from above if x <= -1. */
 362 
 	/* and continuous from above if x <= -1. */
363 
 
 363