#!/usr/bin/perl
#
# Contributed by G. K. Fenton  1/1997
#
# $Id: loan.gnuplot,v 2.1 1997/01/10 19:05:09 curt Exp $
# (Log is kept at end of this file)


#set term post landscape mono "Courier" 14
#
# Balance and Equity Plot
#set output "balance.ps"
set xlabel "Term (Months)"
set ylabel "(Dollars)"
set key
plot "data" t "balance" with linespoints, \
     "data" using 3 t "equity"  with linespoints
pause -1
plot "data" using 4 t "interest"  with linespoints, \
     "data" using 5 t "principal" with linespoints
pause -1


# ----------------------------------------------------------------------------
# $Log: loan.gnuplot,v $
# Revision 2.1  1997/01/10 19:05:09  curt
# Initial revision.
#
