r_annuity_.c

操作系统SunOS 4.1.3版本的源码

#ifndef lint
static	char sccsid[] = "@(#)r_annuity_.c 1.1 92/07/30 SMI";
#endif

/*
 * Copyright (c) 1988 by Sun Microsystems, Inc.
 */

/* r_annuity_(r,n)
 *
 * Returns (1-(1+r)**-n)/r (return n when r==0); undefined for r <= -1.
 */

#include <math.h>
FLOATFUNCTIONTYPE r_annuity_(r,n)
float *r,*n;
{
	float w;
	w = (float) annuity((double)*r,(double)*n);
	RETURNFLOAT(w);
}