# HG changeset patch
# User jwe
# Date 989871399 0
# Node ID 0e6e7f6c727a1e78fb28e63613ed6ce5206e5edb
# Parent  77a11ed451d485e7bcf4276636c1ad21aaf85058
[project @ 2001-05-14 20:16:39 by jwe]

diff -r 77a11ed451d4 -r 0e6e7f6c727a scripts/finance/pmt.m
--- a/scripts/finance/pmt.m	Wed May 02 19:37:48 2001 +0000
+++ b/scripts/finance/pmt.m	Mon May 14 20:16:39 2001 +0000
@@ -19,7 +19,7 @@
 ## Return the amount of periodic payment necessary to amortize a loan
 ## of amount a with interest rate @var{r} in @var{n} periods.
 ##
-## The optional argument @var{l} may be used to specify an initial
+## The optional argument @var{l} may be used to specify an terminal
 ## lump-sum payment.
 ##
 ## The optional argument @var{method} may be used to specify whether
@@ -33,15 +33,15 @@
 
 function p = pmt (r, n, a, l, m)
 
-  if ((nargin < 3) || (nargin > 5))
+  if (nargin < 3 || nargin > 5)
     usage ("pmt (r, n, a, l, method)");
   endif
 
-  if (! (is_scalar (r) && (r > -1)))
+  if (! (is_scalar (r) && r > -1))
     error ("pmt: rate must be a scalar > -1");
-  elseif (! (is_scalar (n) && (n > 0)))
+  elseif (! (is_scalar (n) && n > 0))
     error ("pmt: n must be a positive scalar");
-  elseif (! (is_scalar (a) && (a > 0)))
+  elseif (! (is_scalar (a) && a > 0))
     error ("pmt: a must be a positive scalar");
   endif