Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!floyd!harpo!decvax!cca!ima!inmet!andrew
From: andrew@inmet.UUCP
Newsgroups: net.misc
Subject: Re: Re: Calculating loan payments - (nf)
Message-ID: <986@inmet.UUCP>
Date: Sun, 4-Mar-84 00:01:24 EST
Article-I.D.: inmet.986
Posted: Sun Mar  4 00:01:24 1984
Date-Received: Tue, 6-Mar-84 02:29:09 EST
Lines: 35

#R:inmet:6400096:inmet:6400097:000:804
inmet!andrew    Mar  1 12:07:00 1984

main(argc, argv)        /* Calculate loan payments */
int argc;
char *argv[];

{
float loan_amount, yearly_rate;	
double monthly_rate, x, y;
int term_years, term_months, i;
long payment;

if (argc < 3) {
    printf("usage: %s amount($) rate(%%) years\n", argv[0]);
    return;
    }
sscanf(argv[1], "%f", &loan_amount);
sscanf(argv[2], "%f", &yearly_rate);
sscanf(argv[3], "%d", &term_years);

monthly_rate = yearly_rate / 1200.;
term_months = term_years * 12;

x = 1.0;
for (i = 1; i <= term_months; ++i)
    x = x * (1.0 + monthly_rate);
y = (loan_amount * monthly_rate * x) / (x - 1);
payment = ((long) (y * 100. + 0.5));

printf("Amount: $%.2f\nAPR:    %.3f%%\nTerm:   %d years", loan_amount, 
	yearly_rate, term_years);
printf("\n\n%d monthly payments of $%.2f \n", term_months, payment / 100.);

}