home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume29 / loancalc / part01 / loan.c next >
C/C++ Source or Header  |  1992-05-13  |  6KB  |  236 lines
  1. /*
  2.   loan.c
  3.  
  4.   Copyright (C) 1990 by Shel Kaphan    (sjk@netcom.com, sjk@well.sf.ca.us).
  5.  
  6.   This program is distributed in the hope that it will be useful,
  7.   but WITHOUT ANY WARRANTY.  The author accepts no responsibility to anyone
  8.   for any consequences of using it or for whether it serves any particular 
  9.   purpose or works at all.
  10.  
  11.   This file may be freely copied, modified, and redistributed,
  12.   but only so long as this notice is preserved on all copies.
  13.  
  14.   May be compiled and linked with:
  15.      gcc -o loan loan.c -lm
  16.  
  17. */
  18.  
  19.  
  20. #include <ctype.h>
  21. #include <math.h>
  22. #include <stdio.h>
  23.  
  24. int payments_per_year=12;
  25.  
  26. float expt (num, pow)
  27.      float num;
  28.      int pow;
  29. {
  30.   float result=1.0;
  31.   int i;
  32.   for(i=0; i<pow; i++, result *= num);
  33.   return result;
  34. }
  35.  
  36.  
  37. void show_params(principal, interest_rate, monthly_payment, number_of_payments)
  38.      float principal;
  39.      float interest_rate;
  40.      float monthly_payment;
  41.      int number_of_payments;
  42. {
  43.   float total_interest(float,float,float,int);
  44.   printf("(P)rincipal          %9.2f\n", principal);
  45.   printf("(M)onthly payment    %9.2f\n", monthly_payment);
  46.   printf("(I)nterest rate      %10.3f%%\n", interest_rate*100);
  47.   printf("(N)umber of payments %6d\n", number_of_payments);
  48.   printf("\nTotal Interest       %9.2f\n", total_interest(principal,interest_rate,monthly_payment,
  49.                                                           number_of_payments) );
  50.  
  51.  
  52. }
  53.  
  54.  
  55. float total_interest(float principal,float interest_rate,float monthly_payment, int num_payments)
  56. { 
  57.      int m;
  58.      float total=0.0;
  59.      float remaining_principal = principal;
  60.      for (m=0; m<num_payments; m++) {
  61.          float monthly_interest = (remaining_principal * interest_rate) / 12;
  62.          remaining_principal -= (monthly_payment - monthly_interest);
  63.          total += monthly_interest;
  64.     }
  65.     return total;
  66. }
  67.  
  68.  
  69.  
  70. float monthly_payment(principal, interest_rate, num_payments)
  71.      float principal;
  72.      float interest_rate;
  73.      int num_payments;
  74. {
  75.  
  76.   float monthly_rate = interest_rate / payments_per_year;
  77.   float monthly_interest = principal * monthly_rate;
  78.   float compounding_factor = pow((double)(monthly_rate+1.0),
  79.                  (double)num_payments);
  80.   float monthly_excess = monthly_interest/(compounding_factor - 1.0);
  81.   float monthly_payment = monthly_interest+monthly_excess;
  82.   return monthly_payment;
  83.           
  84. }
  85.  
  86. float loan_size(monthly_payment, interest_rate, num_payments)
  87.      float monthly_payment;
  88.      float interest_rate;
  89.      int num_payments;
  90. {
  91.   float monthly_rate = interest_rate / payments_per_year;
  92.   float compounding_factor = pow((double)(monthly_rate+1.0),
  93.                  (double)num_payments);
  94.   float monthly_excess = monthly_payment/compounding_factor;
  95.   float monthly_interest = monthly_payment - monthly_excess;
  96.   float principal = monthly_interest/monthly_rate;
  97.   return (principal);
  98. }
  99.  
  100. float interest_rate(principal, mon_payment, num_payments)
  101.      float principal;
  102.      float mon_payment;
  103.      int num_payments;
  104. {
  105.  
  106.   float guess = (payments_per_year * mon_payment)/principal;
  107.   float inc = guess * -0.1;
  108.   float mp;
  109.   int i;
  110.   for(i=0; i<1000; i++) {
  111.     mp = monthly_payment(principal, guess, num_payments);
  112. /*    printf("guess = %f    estimate = %.2f\n", guess, mp); */
  113.     if (fabs(mp - mon_payment) <= .005) return guess;
  114.     if (mp-mon_payment > 0) {
  115.       if (inc > 0) inc = inc * -0.5;
  116.     } else {
  117.       if (inc < 0) inc = inc * -0.5;
  118.     }
  119.     guess += inc;
  120.  
  121.     if (guess <=0) {
  122.       guess -= inc;
  123.       guess *= .05;
  124.     }
  125.  
  126.   }
  127.  
  128.   printf("\n*** This is getting nowhere! Try something more realistic... ***\n\n");
  129.  
  130.   return 0.0;
  131. }
  132.  
  133.  
  134. int number_of_payments(principal, monthly_payment, interest_rate)
  135.      float principal;
  136.      float monthly_payment;
  137.      float interest_rate;
  138. {
  139.   float compounding_factor;
  140.   int num_payments;
  141.  
  142.   float monthly_rate = interest_rate / payments_per_year;
  143.   float monthly_interest = monthly_rate * principal;
  144.   float monthly_excess = monthly_payment - monthly_interest;
  145.   if (monthly_excess<=0.0) {
  146.     printf("\n*** THIS LOAN CAN NEVER BE PAID OFF AT THIS INTEREST RATE ***\n\n");
  147.     return 0;
  148.   }
  149.   compounding_factor = monthly_payment / monthly_excess;
  150.   num_payments = (int) ceil(log((double)compounding_factor) /
  151.                log((double)(1.0 + monthly_rate)));
  152.   return num_payments;
  153. }
  154.  
  155.  
  156. void command_loop() {
  157.   char command;
  158.   float arg1, arg2, arg3;
  159.   int matches;
  160.   float int_rate = .10;
  161.   float principal = 100000;
  162.   int num_payments = 360;
  163.   float mon_payment = 877.58;
  164.   char cbuf[100];
  165.  
  166.   printf("Type '?' for help\n");
  167.   while(1) {
  168.     printf("> ");
  169.     if (gets(cbuf)==NULL) return;
  170.     matches = sscanf(cbuf, " %c %f %f %f ", &command, &arg1, &arg2, &arg3);
  171.     if (matches<=0) continue;
  172.  
  173.     if (isupper(command)) command = tolower(command);
  174.  
  175.     switch(command) {
  176.     case 'i':            /* set interest rate */
  177.       if (matches>=2) {
  178.     int_rate = arg1;
  179.     if (int_rate >= 1.0) int_rate *= .01;
  180.       } else
  181.     int_rate = interest_rate(principal, mon_payment, num_payments);
  182.  
  183.       break;
  184.     case 'p':            /* set principal */
  185.       if (matches>=2) {
  186.     principal = arg1;
  187.       } else
  188.     principal = loan_size(mon_payment, int_rate, num_payments);
  189.       break;
  190.     case 'n':            /* set number of payments */
  191.       if (matches>=2) {
  192.     num_payments = (int)ceil((double)arg1);
  193.       } else {
  194.     int n = number_of_payments(principal, mon_payment, int_rate);
  195.     if (n)
  196.       num_payments=n;
  197.     else
  198.       matches=0;
  199.       }
  200.       break;
  201.     case 'm':            /* set monthly payment */
  202.       if (matches>=2) {
  203.     mon_payment = arg1;
  204.       }  else
  205.     mon_payment = monthly_payment(principal, int_rate, num_payments);
  206.       break;
  207.     case 'q':
  208.       exit(0);
  209.     case '?':
  210.     case 'h':
  211.       printf("Type 'p', 'm', 'i', or 'n' followed by a number to set the Principal,\n\
  212. Monthly payment, Interest rate, or Number of payments, respectively.\n\
  213. The same commands with no arguments recalculate the specified quantity.\n\
  214. Type q to quit.\n\n");
  215.       matches=0;
  216.       break;
  217.     default:
  218.       printf("Huh?\n");
  219.       matches=0;
  220.       break;
  221.     }
  222.  
  223.     if (matches==1)
  224.       show_params(principal, int_rate, mon_payment, num_payments);
  225.  
  226.   }
  227.  
  228. }
  229.  
  230.  
  231.  
  232. main () {
  233.   command_loop();
  234. }
  235.  
  236.