# HG changeset patch
# User jwe
# Date 837143882 0
# Node ID 949ab8eba8bc1f9068fe5e9989ef8dca4fea2ab9
# Parent  5ca126254d15fa477d28628f8a1cca9df9ec00b3
[project @ 1996-07-12 03:58:02 by jwe]

diff --git a/scripts/elfun/acot.m b/scripts/elfun/acot.m
--- a/scripts/elfun/acot.m
+++ b/scripts/elfun/acot.m
@@ -19,6 +19,8 @@
 
 ## acot (z):  compute the inverse cotangent for each element of z.
 
+## Author: jwe
+
 function w = acot (z)
 
   if (nargin != 1)
diff --git a/scripts/elfun/acoth.m b/scripts/elfun/acoth.m
--- a/scripts/elfun/acoth.m
+++ b/scripts/elfun/acoth.m
@@ -19,6 +19,8 @@
 
 ## acoth (z):  compute the inverse hyperbolic cotangent for each element of z. 
 
+## Author: jwe
+
 function w = acoth (z)
 
   if (nargin != 1)
diff --git a/scripts/elfun/acsc.m b/scripts/elfun/acsc.m
--- a/scripts/elfun/acsc.m
+++ b/scripts/elfun/acsc.m
@@ -19,6 +19,8 @@
 
 ## acsc (z):  compute the inverse cosecant for each element of z.
 
+## Author: jwe
+
 function w = acsc (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/acsch.m b/scripts/elfun/acsch.m
--- a/scripts/elfun/acsch.m
+++ b/scripts/elfun/acsch.m
@@ -19,6 +19,8 @@
 
 ## acsch (z):  compute the inverse hyperbolic cosecant for each element of z.
 
+## Author: jwe
+
 function w = acsch (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/asec.m b/scripts/elfun/asec.m
--- a/scripts/elfun/asec.m
+++ b/scripts/elfun/asec.m
@@ -19,6 +19,8 @@
 
 ## asec (z):  compute the inverse secant for each element of z.
 
+## Author: jwe
+
 function w = asec (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/asech.m b/scripts/elfun/asech.m
--- a/scripts/elfun/asech.m
+++ b/scripts/elfun/asech.m
@@ -19,6 +19,8 @@
 
 ## asech (z):  compute the inverse hyperbolic secant for each element of z.
 
+## Author: jwe
+
 function w = asech (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/cot.m b/scripts/elfun/cot.m
--- a/scripts/elfun/cot.m
+++ b/scripts/elfun/cot.m
@@ -19,6 +19,8 @@
 
 ## cot (z):  compute the cotangent for each element of z.
 
+## Author: jwe
+
 function w = cot (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/coth.m b/scripts/elfun/coth.m
--- a/scripts/elfun/coth.m
+++ b/scripts/elfun/coth.m
@@ -19,6 +19,8 @@
 
 ## coth (z):  compute the hyperbolic cotangent for each element of z.
 
+## Author: jwe
+
 function w = coth (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/csc.m b/scripts/elfun/csc.m
--- a/scripts/elfun/csc.m
+++ b/scripts/elfun/csc.m
@@ -19,6 +19,8 @@
 
 ## csc (z):  compute the cosecant for each element of z.
 
+## Author: jwe
+
 function w = csc (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/csch.m b/scripts/elfun/csch.m
--- a/scripts/elfun/csch.m
+++ b/scripts/elfun/csch.m
@@ -19,6 +19,8 @@
 
 ## csch (z):  compute the hyperbolic cosecant for each element of z.
 
+## Author: jwe
+
 function w = csch (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/log2.m b/scripts/elfun/log2.m
--- a/scripts/elfun/log2.m
+++ b/scripts/elfun/log2.m
@@ -19,6 +19,8 @@
 
 ## log2 (z):  compute the logarithm base 2 for each element of z.
 
+## Author: jwe
+
 function w = log2 (z)
   
 if (nargin != 1)
diff --git a/scripts/elfun/sec.m b/scripts/elfun/sec.m
--- a/scripts/elfun/sec.m
+++ b/scripts/elfun/sec.m
@@ -19,6 +19,8 @@
 
 ## sec (z): compute the secant for each element of z.
 
+## Author: jwe
+
 function w = sec (z)
   
   if (nargin != 1)
diff --git a/scripts/elfun/sech.m b/scripts/elfun/sech.m
--- a/scripts/elfun/sech.m
+++ b/scripts/elfun/sech.m
@@ -19,6 +19,8 @@
 
 ## sech (z):  compute the hyperbolic secant for each element of z.
 
+## Author: jwe
+
 function w = sech (z)
   
 if (nargin != 1)
diff --git a/scripts/general/columns.m b/scripts/general/columns.m
--- a/scripts/general/columns.m
+++ b/scripts/general/columns.m
@@ -23,6 +23,8 @@
 ##
 ## See also: size, rows, length, is_scalar, is_vector, is_matrix
 
+## Author: jwe
+
 function nc = columns (x)
 
   if (nargin != 1)
diff --git a/scripts/general/fliplr.m b/scripts/general/fliplr.m
--- a/scripts/general/fliplr.m
+++ b/scripts/general/fliplr.m
@@ -23,6 +23,8 @@
 ##
 ## See also: flipu, rot90
 
+## Author: jwe
+
 function y = fliplr (x)
 
   if (nargin != 1)
diff --git a/scripts/general/flipud.m b/scripts/general/flipud.m
--- a/scripts/general/flipud.m
+++ b/scripts/general/flipud.m
@@ -23,6 +23,8 @@
 ##
 ## See also: fliplr, rot90
 
+## Author: jwe
+
 function y = flipud (x)
 
   if (nargin != 1)
diff --git a/scripts/general/int2str.m b/scripts/general/int2str.m
--- a/scripts/general/int2str.m
+++ b/scripts/general/int2str.m
@@ -23,6 +23,8 @@
 ##
 ## See also: sprintf, num2str 
 
+## Author: jwe
+
 function retval = int2str (x)
 
   ## XXX FIXME XXX -- this will fail for very large values.
diff --git a/scripts/general/is_matrix.m b/scripts/general/is_matrix.m
--- a/scripts/general/is_matrix.m
+++ b/scripts/general/is_matrix.m
@@ -24,6 +24,8 @@
 ##
 ## See also: size, rows, columns, length, is_scalar, is_vector
 
+## Author: jwe
+
 function retval = is_matrix (x)
 
   if (nargin == 1)
diff --git a/scripts/general/is_scalar.m b/scripts/general/is_scalar.m
--- a/scripts/general/is_scalar.m
+++ b/scripts/general/is_scalar.m
@@ -23,6 +23,8 @@
 ##
 ## See also: size, rows, columns, length, is_scalar, is_matrix
 
+## Author: jwe
+
 function retval = is_scalar (x)
 
   if (nargin == 1)
diff --git a/scripts/general/is_vector.m b/scripts/general/is_vector.m
--- a/scripts/general/is_vector.m
+++ b/scripts/general/is_vector.m
@@ -24,6 +24,8 @@
 ##
 ## See also: size, rows, columns, length, is_scalar, is_matrix
 
+## Author: jwe
+
 function retval = is_vector (x)
 
   if (nargin == 1)
diff --git a/scripts/general/isempty.m b/scripts/general/isempty.m
--- a/scripts/general/isempty.m
+++ b/scripts/general/isempty.m
@@ -21,6 +21,8 @@
 ##
 ## Return 1 if the argument is an empty matrix.  Otherwise, return 0.
 
+## Author: jwe
+
 function retval = isempty (var)
 
   if (nargin != 1)
diff --git a/scripts/general/length.m b/scripts/general/length.m
--- a/scripts/general/length.m
+++ b/scripts/general/length.m
@@ -23,6 +23,8 @@
 ##
 ## See also: size, rows, columns, is_scalar, is_vector, is_matrix
 
+## Author: jwe
+
 function len = length (x)
 
   if (nargin != 1)
diff --git a/scripts/general/logspace.m b/scripts/general/logspace.m
--- a/scripts/general/logspace.m
+++ b/scripts/general/logspace.m
@@ -35,6 +35,8 @@
 ##
 ## See also: linspace
 
+## Author: jwe
+
 function retval = logspace (x1, x2, n)
 
   if (nargin == 2)
diff --git a/scripts/general/nargchk.m b/scripts/general/nargchk.m
--- a/scripts/general/nargchk.m
+++ b/scripts/general/nargchk.m
@@ -23,6 +23,8 @@
 ## matrix.  Otherwise, return a message indicating whether N is too
 ## large or too small.
 
+## Author: jwe
+
 function retval = nargchk (nargin_min, nargin_max, n)
 
   if (nargin != 3)
diff --git a/scripts/general/num2str.m b/scripts/general/num2str.m
--- a/scripts/general/num2str.m
+++ b/scripts/general/num2str.m
@@ -23,6 +23,8 @@
 ##
 ## See also: sprintf, int2str
 
+## Author: jwe
+
 function retval = num2str (x)
 
   if (nargin == 1)
diff --git a/scripts/general/perror.m b/scripts/general/perror.m
--- a/scripts/general/perror.m
+++ b/scripts/general/perror.m
@@ -28,6 +28,8 @@
 ##
 ## See also: strerror
 
+## Author: jwe
+
 function perror (name, err)
 
   if (nargin != 2)
diff --git a/scripts/general/rem.m b/scripts/general/rem.m
--- a/scripts/general/rem.m
+++ b/scripts/general/rem.m
@@ -21,6 +21,8 @@
 ##
 ## Return remainder (x, y).
 
+## Author: jwe
+
 function retval = rem (x, y)
 
   if (nargin != 2)
diff --git a/scripts/general/reshape.m b/scripts/general/reshape.m
--- a/scripts/general/reshape.m
+++ b/scripts/general/reshape.m
@@ -24,6 +24,8 @@
 ##
 ## See also: `:', do_fortran_indexing
 
+## Author: jwe
+
 function retval = reshape (a, m, n)
 
   if (nargin != 3)
diff --git a/scripts/general/rot90.m b/scripts/general/rot90.m
--- a/scripts/general/rot90.m
+++ b/scripts/general/rot90.m
@@ -25,6 +25,8 @@
 ##
 ## See also: flipud, fliplr
 
+## Author: jwe
+
 function y = rot90 (x, k)
 
   if (nargin < 2)
diff --git a/scripts/general/rows.m b/scripts/general/rows.m
--- a/scripts/general/rows.m
+++ b/scripts/general/rows.m
@@ -23,6 +23,8 @@
 ##
 ## See also: size, columns, length, is_scalar, is_vector, is_matrix
 
+## Author: jwe
+
 function nr = rows (x)
 
   if (nargin != 1)
diff --git a/scripts/general/strerror.m b/scripts/general/strerror.m
--- a/scripts/general/strerror.m
+++ b/scripts/general/strerror.m
@@ -27,6 +27,8 @@
 ##   npsol : 4.0
 ##   qpsol : 3.2
 
+## Author: jwe
+
 function msg = strerror (name, err)
 
   if (nargin != 2)
diff --git a/scripts/general/tril.m b/scripts/general/tril.m
--- a/scripts/general/tril.m
+++ b/scripts/general/tril.m
@@ -24,6 +24,8 @@
 ##
 ## See also: triu, diag
 
+## Author: jwe
+
 function retval = tril (x, k)
 
   if (nargin > 0)
diff --git a/scripts/general/triu.m b/scripts/general/triu.m
--- a/scripts/general/triu.m
+++ b/scripts/general/triu.m
@@ -24,6 +24,8 @@
 ##
 ## See also: tril, diag
 
+## Author: jwe
+
 function retval = triu (x, k)
 
   if (nargin > 0)
diff --git a/scripts/io/printf.m b/scripts/io/printf.m
--- a/scripts/io/printf.m
+++ b/scripts/io/printf.m
@@ -23,6 +23,8 @@
 ##
 ## See also: fprintf sprintf
 
+## Author: jwe
+
 function retval = printf (fmt, ...)
 
   retval = -1;
diff --git a/scripts/io/puts.m b/scripts/io/puts.m
--- a/scripts/io/puts.m
+++ b/scripts/io/puts.m
@@ -23,6 +23,8 @@
 ##
 ## See also: fputs, printf, fprintf
 
+## Author: jwe
+
 function retval = puts (s)
 
   retval = -1;
diff --git a/scripts/linear-algebra/cond.m b/scripts/linear-algebra/cond.m
--- a/scripts/linear-algebra/cond.m
+++ b/scripts/linear-algebra/cond.m
@@ -24,6 +24,8 @@
 ##
 ## See also: norm, svd
 
+## Author: jwe
+
 function retval = cond (a)
 
   if (nargin == 1)
diff --git a/scripts/linear-algebra/norm.m b/scripts/linear-algebra/norm.m
--- a/scripts/linear-algebra/norm.m
+++ b/scripts/linear-algebra/norm.m
@@ -43,6 +43,8 @@
 ##
 ## See also: cond, svd
 
+## Author: jwe
+
 function retval = norm (x, p)
 
   if (nargin < 1 || nargin > 2)
diff --git a/scripts/linear-algebra/rank.m b/scripts/linear-algebra/rank.m
--- a/scripts/linear-algebra/rank.m
+++ b/scripts/linear-algebra/rank.m
@@ -29,6 +29,8 @@
 ## where eps is machine precision and sigma is the largest singular
 ## value of a.
 
+## Author: jwe
+
 function retval = rank (A, tol)
 
   if (nargin == 1)
diff --git a/scripts/linear-algebra/trace.m b/scripts/linear-algebra/trace.m
--- a/scripts/linear-algebra/trace.m
+++ b/scripts/linear-algebra/trace.m
@@ -21,6 +21,8 @@
 ##
 ## Returns the trace (the sum of the diagonal elements) of x.
 
+## Author: jwe
+
 function y = trace (x)
 
   if (nargin != 1)
diff --git a/scripts/miscellaneous/bug_report.m b/scripts/miscellaneous/bug_report.m
--- a/scripts/miscellaneous/bug_report.m
+++ b/scripts/miscellaneous/bug_report.m
@@ -23,6 +23,8 @@
 ## editor, and submit the report to the bug-octave mailing list when
 ## you are finished editing.
 
+## Author: jwe
+
 function bug_report ()
 
   if (nargin != 0)
diff --git a/scripts/miscellaneous/cputime.m b/scripts/miscellaneous/cputime.m
--- a/scripts/miscellaneous/cputime.m
+++ b/scripts/miscellaneous/cputime.m
@@ -21,6 +21,8 @@
 ##
 ## Get CPU time statistics.
 
+## Author: jwe
+
 function [total, user, system] = cputime ()
 
   if (nargin != 0)
diff --git a/scripts/miscellaneous/dump_1_pref.m b/scripts/miscellaneous/dump_1_pref.m
--- a/scripts/miscellaneous/dump_1_pref.m
+++ b/scripts/miscellaneous/dump_1_pref.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function dump_1_pref (file, var)
 
   if (nargin != 2)
diff --git a/scripts/miscellaneous/dump_prefs.m b/scripts/miscellaneous/dump_prefs.m
--- a/scripts/miscellaneous/dump_prefs.m
+++ b/scripts/miscellaneous/dump_prefs.m
@@ -23,6 +23,8 @@
 ## in a format that can be parsed by Octave later.  If FILE is omitted,
 ## the listing is printed to stdout.
 
+## Author: jwe
+
 function dump_prefs (file)
 
   if (nargin == 0)
diff --git a/scripts/miscellaneous/etime.m b/scripts/miscellaneous/etime.m
--- a/scripts/miscellaneous/etime.m
+++ b/scripts/miscellaneous/etime.m
@@ -24,6 +24,8 @@
 ##
 ## See also: tic, toc, clock, cputime
 
+## Author: jwe
+
 function secs = etime (t1, t0)
 
   if (nargin != 2)
diff --git a/scripts/miscellaneous/flops.m b/scripts/miscellaneous/flops.m
--- a/scripts/miscellaneous/flops.m
+++ b/scripts/miscellaneous/flops.m
@@ -21,6 +21,8 @@
 ##
 ## Count floating point operations.
 
+## Author: jwe
+
 function retval = flops ()
 
   if (nargin > 0)
diff --git a/scripts/miscellaneous/is_leap_year.m b/scripts/miscellaneous/is_leap_year.m
--- a/scripts/miscellaneous/is_leap_year.m
+++ b/scripts/miscellaneous/is_leap_year.m
@@ -22,6 +22,8 @@
 ## Return 1 if the given year is a leap year; otherwise, return 0.
 ## With no arguments, use the current year.
 
+## Author: jwe
+
 function retval = is_leap_year (year)
 
   if (nargin > 1)
diff --git a/scripts/miscellaneous/list_primes.m b/scripts/miscellaneous/list_primes.m
--- a/scripts/miscellaneous/list_primes.m
+++ b/scripts/miscellaneous/list_primes.m
@@ -24,6 +24,8 @@
 ##
 ## The algorithm used is from page 218 of the TeXbook.
 
+## Author: jwe
+
 function retval = list_primes (n)
 
   if (nargin > 0)
diff --git a/scripts/miscellaneous/menu.m b/scripts/miscellaneous/menu.m
--- a/scripts/miscellaneous/menu.m
+++ b/scripts/miscellaneous/menu.m
@@ -21,6 +21,8 @@
 ##
 ## See also: disp, printf, input
 
+## Author: jwe
+
 function num = menu (t, ...)
 
   if (nargin < 2)
diff --git a/scripts/miscellaneous/popen2.m b/scripts/miscellaneous/popen2.m
--- a/scripts/miscellaneous/popen2.m
+++ b/scripts/miscellaneous/popen2.m
@@ -38,6 +38,8 @@
 ##  endwhile
 ##  fclose (out);
 
+## Author: jwe
+
 function [in, out, pid] = popen2 (command, args)
 
   in = -1;
diff --git a/scripts/miscellaneous/texas_lotto.m b/scripts/miscellaneous/texas_lotto.m
--- a/scripts/miscellaneous/texas_lotto.m
+++ b/scripts/miscellaneous/texas_lotto.m
@@ -24,6 +24,8 @@
 ##
 ## See also: rand
 
+## Author: jwe
+
 function picks = texas_lotto ()
 
   if (nargin != 0)
diff --git a/scripts/miscellaneous/tic.m b/scripts/miscellaneous/tic.m
--- a/scripts/miscellaneous/tic.m
+++ b/scripts/miscellaneous/tic.m
@@ -23,6 +23,8 @@
 ##
 ## See also: toc, clock, etime, cputime
 
+## Author: jwe
+
 function tic ()
 
   if (nargin != 0)
diff --git a/scripts/miscellaneous/toc.m b/scripts/miscellaneous/toc.m
--- a/scripts/miscellaneous/toc.m
+++ b/scripts/miscellaneous/toc.m
@@ -24,6 +24,8 @@
 ##
 ## See also: tic, clock, etime, cputime
 
+## Author: jwe
+
 function secs = toc ()
 
   if (nargin != 0)
diff --git a/scripts/miscellaneous/version.m b/scripts/miscellaneous/version.m
--- a/scripts/miscellaneous/version.m
+++ b/scripts/miscellaneous/version.m
@@ -23,6 +23,8 @@
 ##
 ## See also: OCTAVE_VERSION
 
+## Author: jwe
+
 function vs = version ()
 
   if (nargin != 0)
diff --git a/scripts/plot/__plr1__.m b/scripts/plot/__plr1__.m
--- a/scripts/plot/__plr1__.m
+++ b/scripts/plot/__plr1__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function polar_int_1 (theta, fmt)
 
   if (nargin != 2)
diff --git a/scripts/plot/__plr2__.m b/scripts/plot/__plr2__.m
--- a/scripts/plot/__plr2__.m
+++ b/scripts/plot/__plr2__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function polar_int_2 (theta, rho, fmt)
 
   if (nargin != 3)
diff --git a/scripts/plot/__plr__.m b/scripts/plot/__plr__.m
--- a/scripts/plot/__plr__.m
+++ b/scripts/plot/__plr__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function polar_int (theta, rho, fmt)
 
   if (nargin == 1)
diff --git a/scripts/plot/__plt1__.m b/scripts/plot/__plt1__.m
--- a/scripts/plot/__plt1__.m
+++ b/scripts/plot/__plt1__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_int_1 (x1, fmt)
 
   if (nargin < 1 || nargin > 2)
diff --git a/scripts/plot/__plt2__.m b/scripts/plot/__plt2__.m
--- a/scripts/plot/__plt2__.m
+++ b/scripts/plot/__plt2__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_int_2 (x1, x2, fmt)
 
   if (nargin < 2 || nargin > 3)
diff --git a/scripts/plot/__plt2mm__.m b/scripts/plot/__plt2mm__.m
--- a/scripts/plot/__plt2mm__.m
+++ b/scripts/plot/__plt2mm__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_2_m_m (x, y, fmt)
 
   if (nargin < 2 || nargin > 3)
diff --git a/scripts/plot/__plt2mv__.m b/scripts/plot/__plt2mv__.m
--- a/scripts/plot/__plt2mv__.m
+++ b/scripts/plot/__plt2mv__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_2_m_v (x, y, fmt)
 
   if (nargin < 2 || nargin > 3)
diff --git a/scripts/plot/__plt2ss__.m b/scripts/plot/__plt2ss__.m
--- a/scripts/plot/__plt2ss__.m
+++ b/scripts/plot/__plt2ss__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_2_s_s (x, y, fmt)
 
   if (nargin < 2 || nargin > 3)
diff --git a/scripts/plot/__plt2vm__.m b/scripts/plot/__plt2vm__.m
--- a/scripts/plot/__plt2vm__.m
+++ b/scripts/plot/__plt2vm__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_2_v_m (x, y, fmt)
 
   if (nargin < 2 || nargin > 3)
diff --git a/scripts/plot/__plt2vv__.m b/scripts/plot/__plt2vv__.m
--- a/scripts/plot/__plt2vv__.m
+++ b/scripts/plot/__plt2vv__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_2_v_v (x, y, fmt)
 
   if (nargin < 2 || nargin > 3)
diff --git a/scripts/plot/__plt__.m b/scripts/plot/__plt__.m
--- a/scripts/plot/__plt__.m
+++ b/scripts/plot/__plt__.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function plot_int (caller, ...)
 
   if (nargin == 2)
diff --git a/scripts/plot/__pltopt__.m b/scripts/plot/__pltopt__.m
--- a/scripts/plot/__pltopt__.m
+++ b/scripts/plot/__pltopt__.m
@@ -60,6 +60,8 @@
 ##       5       cyan                house
 ##       6       brown               there exists
 
+## Author: jwe
+
 function fmt = plot_opt (caller, opt)
 
   set_color = 0;
diff --git a/scripts/plot/axis.m b/scripts/plot/axis.m
--- a/scripts/plot/axis.m
+++ b/scripts/plot/axis.m
@@ -29,6 +29,8 @@
 ## If your plot is already drawn, then you need to REPLOT before 
 ## the new axis limits will take effect.
 
+## Author: jwe
+
 function curr_axis = axis (ax)
 
   ## This may not be correct if someone has used the gnuplot interface
diff --git a/scripts/plot/bar.m b/scripts/plot/bar.m
--- a/scripts/plot/bar.m
+++ b/scripts/plot/bar.m
@@ -39,6 +39,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function [xb, yb] = bar (x, y)
 
   if (nargin == 1)
diff --git a/scripts/plot/contour.m b/scripts/plot/contour.m
--- a/scripts/plot/contour.m
+++ b/scripts/plot/contour.m
@@ -22,6 +22,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function contour (z, n, x, y)
 
 
diff --git a/scripts/plot/figure.m b/scripts/plot/figure.m
--- a/scripts/plot/figure.m
+++ b/scripts/plot/figure.m
@@ -22,6 +22,8 @@
 ## Set the current plot window to plot window N.  This function
 ## currently requires X11 and a recent version of gnuplot.
 
+## Author: jwe
+
 function figure (n)
 
   if (nargin == 1)
diff --git a/scripts/plot/grid.m b/scripts/plot/grid.m
--- a/scripts/plot/grid.m
+++ b/scripts/plot/grid.m
@@ -26,6 +26,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function grid (x)
 
   if (nargin == 0)
diff --git a/scripts/plot/hist.m b/scripts/plot/hist.m
--- a/scripts/plot/hist.m
+++ b/scripts/plot/hist.m
@@ -38,6 +38,8 @@
 ##
 ## See also: bar
 
+## Author: jwe
+
 function [nn, xx] = hist (y, x)
 
   if (nargin < 1 || nargin > 2)
diff --git a/scripts/plot/loglog.m b/scripts/plot/loglog.m
--- a/scripts/plot/loglog.m
+++ b/scripts/plot/loglog.m
@@ -29,6 +29,8 @@
 ## See also: plot, semilogy, loglog, polar, mesh, contour, bar, stairs,
 ##           gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function loglog (...)
 
   set logscale x;
diff --git a/scripts/plot/mesh.m b/scripts/plot/mesh.m
--- a/scripts/plot/mesh.m
+++ b/scripts/plot/mesh.m
@@ -28,6 +28,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, meshgrid, meshdom, 
 ##           contour, bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function mesh (x, y, z)
 
   if (nargin == 1)
diff --git a/scripts/plot/meshdom.m b/scripts/plot/meshdom.m
--- a/scripts/plot/meshdom.m
+++ b/scripts/plot/meshdom.m
@@ -27,6 +27,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function [xx, yy] = meshdom (x, y)
 
   if (nargin == 2)
diff --git a/scripts/plot/meshgrid.m b/scripts/plot/meshgrid.m
--- a/scripts/plot/meshgrid.m
+++ b/scripts/plot/meshgrid.m
@@ -28,6 +28,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, meshdom, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function [xx, yy] = meshgrid (x, y)
 
   if (nargin == 1)
diff --git a/scripts/plot/plot.m b/scripts/plot/plot.m
--- a/scripts/plot/plot.m
+++ b/scripts/plot/plot.m
@@ -61,6 +61,8 @@
 ## See also: semilogx, semilogy, loglog, polar, mesh, contour, plot_opt
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function plot (...)
 
   set nologscale;
diff --git a/scripts/plot/polar.m b/scripts/plot/polar.m
--- a/scripts/plot/polar.m
+++ b/scripts/plot/polar.m
@@ -26,6 +26,8 @@
 ## See also: plot, semilogx, semilogy, loglog, mesh, contour, bar,
 ##           stairs, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function polar (x1, x2, fmt)
 
   set nologscale;
diff --git a/scripts/plot/semilogx.m b/scripts/plot/semilogx.m
--- a/scripts/plot/semilogx.m
+++ b/scripts/plot/semilogx.m
@@ -29,6 +29,8 @@
 ## See also: plot, semilogy, loglog, polar, mesh, contour, bar, stairs,
 ##           gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function semilogx (...)
 
   set logscale x;
diff --git a/scripts/plot/semilogy.m b/scripts/plot/semilogy.m
--- a/scripts/plot/semilogy.m
+++ b/scripts/plot/semilogy.m
@@ -29,6 +29,8 @@
 ## See also: plot, semilogx, loglog, polar, mesh, contour, bar, stairs,
 ##           gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function semilogy (...)
 
   set nologscale x;
diff --git a/scripts/plot/shg.m b/scripts/plot/shg.m
--- a/scripts/plot/shg.m
+++ b/scripts/plot/shg.m
@@ -25,6 +25,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel
 
+## Author: jwe
+
 function shg ()
 
   if (nargin != 0)
diff --git a/scripts/plot/sombrero.m b/scripts/plot/sombrero.m
--- a/scripts/plot/sombrero.m
+++ b/scripts/plot/sombrero.m
@@ -24,6 +24,8 @@
 ##
 ##   z = sin (x^2 + y^2) / (x^2 + y^2);
 
+## Author: jwe
+
 function sombrero (n)
 
   if (nargin != 1)
diff --git a/scripts/plot/stairs.m b/scripts/plot/stairs.m
--- a/scripts/plot/stairs.m
+++ b/scripts/plot/stairs.m
@@ -39,6 +39,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, gplot, gsplot, replot, xlabel, ylabel, title 
 
+## Author: jwe
+
 function [xs, ys] = stairs (x, y)
 
 
diff --git a/scripts/plot/title.m b/scripts/plot/title.m
--- a/scripts/plot/title.m
+++ b/scripts/plot/title.m
@@ -25,6 +25,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, ylabel
 
+## Author: jwe
+
 function title (text)
 
   if (nargin != 1)
diff --git a/scripts/plot/xlabel.m b/scripts/plot/xlabel.m
--- a/scripts/plot/xlabel.m
+++ b/scripts/plot/xlabel.m
@@ -25,6 +25,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, ylabel, title
 
+## Author: jwe
+
 function xlabel (text)
 
   if (nargin != 1)
diff --git a/scripts/plot/ylabel.m b/scripts/plot/ylabel.m
--- a/scripts/plot/ylabel.m
+++ b/scripts/plot/ylabel.m
@@ -25,6 +25,8 @@
 ## See also: plot, semilogx, semilogy, loglog, polar, mesh, contour,
 ##           bar, stairs, gplot, gsplot, replot, xlabel, title
 
+## Author: jwe
+
 function ylabel (text)
 
   if (nargin != 1)
diff --git a/scripts/polynomial/polyder.m b/scripts/polynomial/polyder.m
--- a/scripts/polynomial/polyder.m
+++ b/scripts/polynomial/polyder.m
@@ -21,6 +21,8 @@
 ##
 ## SEE ALSO: polyderiv
 
+## Author: jwe
+
 function q = polyder (p)
 
   if (nargin == 1)
diff --git a/scripts/set/complement.m b/scripts/set/complement.m
--- a/scripts/set/complement.m
+++ b/scripts/set/complement.m
@@ -23,6 +23,8 @@
 ##
 ## See - create_set, union, intersection
 
+## Author: jwe
+
 function y = complement (a, b)
 
   if (nargin != 2)
diff --git a/scripts/set/create_set.m b/scripts/set/create_set.m
--- a/scripts/set/create_set.m
+++ b/scripts/set/create_set.m
@@ -23,6 +23,8 @@
 ##
 ## See - union, intersection, complement
 
+## Author: jwe
+
 function y = create_set(x)
 
   if ( nargin != 1)
diff --git a/scripts/set/intersection.m b/scripts/set/intersection.m
--- a/scripts/set/intersection.m
+++ b/scripts/set/intersection.m
@@ -23,6 +23,8 @@
 ##
 ## See - create_set, union, complement
 
+## Author: jwe
+
 function y = intersection(a,b)
 
   if (nargin != 2)
diff --git a/scripts/set/union.m b/scripts/set/union.m
--- a/scripts/set/union.m
+++ b/scripts/set/union.m
@@ -23,6 +23,8 @@
 ##
 ## See - create_set, intersection, complement
 
+## Author: jwe
+
 function y = union(a,b)
 
   if (nargin != 2)
diff --git a/scripts/signal/freqz.m b/scripts/signal/freqz.m
--- a/scripts/signal/freqz.m
+++ b/scripts/signal/freqz.m
@@ -35,6 +35,8 @@
 ## [h,w] = freqz(b,a,n,"whole")
 ##   evaluates the response at n frequencies between 0 and 2*pi.
 
+## Author: jwe
+
 function [h, w] = freqz(b,...)
 
   if (nargin == 1)
diff --git a/scripts/signal/sinc.m b/scripts/signal/sinc.m
--- a/scripts/signal/sinc.m
+++ b/scripts/signal/sinc.m
@@ -21,6 +21,8 @@
 ##
 ##        Returns sin(pi*x)/(pi*x).
 
+## Author: jwe
+
 function result = sinc (x)
 
   ## We either need to set the do_fortran_indexing variable to "true"
diff --git a/scripts/specfun/betainc.m b/scripts/specfun/betainc.m
--- a/scripts/specfun/betainc.m
+++ b/scripts/specfun/betainc.m
@@ -21,6 +21,8 @@
 ##
 ## See also: betai
 
+## Author: jwe
+
 function y = betainc (x, a, b)
   
   y = betai (a, b, x);
diff --git a/scripts/specfun/gammainc.m b/scripts/specfun/gammainc.m
--- a/scripts/specfun/gammainc.m
+++ b/scripts/specfun/gammainc.m
@@ -21,6 +21,8 @@
 ##
 ## See also: gammai
 
+## Author: jwe
+
 function y = gammainc (x, a)
   
   y = gammai (a, x);
diff --git a/scripts/special-matrix/hadamard.m b/scripts/special-matrix/hadamard.m
--- a/scripts/special-matrix/hadamard.m
+++ b/scripts/special-matrix/hadamard.m
@@ -23,6 +23,8 @@
 ##
 ## See also: hankel, vander, hilb, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = hadamard (k)
 
   if (nargin != 1)
diff --git a/scripts/special-matrix/hankel.m b/scripts/special-matrix/hankel.m
--- a/scripts/special-matrix/hankel.m
+++ b/scripts/special-matrix/hankel.m
@@ -28,6 +28,8 @@
 ##
 ## See also: vander, hadamard, hilb, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = hankel (c, r)
 
   if (nargin == 1)
diff --git a/scripts/special-matrix/hilb.m b/scripts/special-matrix/hilb.m
--- a/scripts/special-matrix/hilb.m
+++ b/scripts/special-matrix/hilb.m
@@ -26,6 +26,8 @@
 ##
 ## See also: hankel, vander, hadamard, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = hilb (n)
 
 
diff --git a/scripts/special-matrix/invhilb.m b/scripts/special-matrix/invhilb.m
--- a/scripts/special-matrix/invhilb.m
+++ b/scripts/special-matrix/invhilb.m
@@ -24,6 +24,8 @@
 ##
 ## See also: hankel, vander, hadamard, hilb, toeplitz
 
+## Author: jwe
+
 function retval = invhilb (n)
 
   if (nargin != 1)
diff --git a/scripts/special-matrix/toeplitz.m b/scripts/special-matrix/toeplitz.m
--- a/scripts/special-matrix/toeplitz.m
+++ b/scripts/special-matrix/toeplitz.m
@@ -28,6 +28,8 @@
 ##
 ## See also: hankel, vander, hadamard, hilb, invhib
 
+## Author: jwe
+
 function retval = toeplitz (c, r)
 
   if (nargin == 1)
diff --git a/scripts/special-matrix/vander.m b/scripts/special-matrix/vander.m
--- a/scripts/special-matrix/vander.m
+++ b/scripts/special-matrix/vander.m
@@ -23,6 +23,8 @@
 ##
 ## See also: hankel, hadamard, hilb, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = vander (c)
 
   if (nargin != 1)
diff --git a/scripts/statistics/mean.m b/scripts/statistics/mean.m
--- a/scripts/statistics/mean.m
+++ b/scripts/statistics/mean.m
@@ -26,6 +26,8 @@
 ##
 ## See also: median, std
 
+## Author: jwe
+
 function retval = mean (a)
 
   if (nargin != 1)
diff --git a/scripts/statistics/median.m b/scripts/statistics/median.m
--- a/scripts/statistics/median.m
+++ b/scripts/statistics/median.m
@@ -26,6 +26,8 @@
 ##
 ## See also: std, mean
 
+## Author: jwe
+
 function retval = median (a)
 
   if (nargin != 1)
diff --git a/scripts/statistics/std.m b/scripts/statistics/std.m
--- a/scripts/statistics/std.m
+++ b/scripts/statistics/std.m
@@ -25,6 +25,8 @@
 ##
 ## See also: mean, median
 
+## Author: jwe
+
 function retval = std (a)
 
   if (nargin != 1)
diff --git a/scripts/strings/bin2dec.m b/scripts/strings/bin2dec.m
--- a/scripts/strings/bin2dec.m
+++ b/scripts/strings/bin2dec.m
@@ -22,6 +22,8 @@
 ## Returns the decimal number corresponding to the binary number in
 ## quotes.  For example, bin2dec ("1110") returns 14.
 
+## Author: jwe
+
 function y = bin2dec (x)
 
 ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/blanks.m b/scripts/strings/blanks.m
--- a/scripts/strings/blanks.m
+++ b/scripts/strings/blanks.m
@@ -21,6 +21,8 @@
 ##
 ## Returns a string of n blanks.
 
+## Author: jwe
+
 function s = blanks (n)
   
 ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/deblank.m b/scripts/strings/deblank.m
--- a/scripts/strings/deblank.m
+++ b/scripts/strings/deblank.m
@@ -21,6 +21,8 @@
 ##
 ## Remove trailing blanks from the string s.
 
+## Author: jwe
+
 function t = deblank (s)
   
 ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/dec2bin.m b/scripts/strings/dec2bin.m
--- a/scripts/strings/dec2bin.m
+++ b/scripts/strings/dec2bin.m
@@ -22,6 +22,8 @@
 ## Returns the binary number corresponding to the nonnegative integer
 ## x.  For example, dec2bin (14) returns "1110".
 
+## Author: jwe
+
 function y = dec2bin (x)
 
   ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/dec2hex.m b/scripts/strings/dec2hex.m
--- a/scripts/strings/dec2hex.m
+++ b/scripts/strings/dec2hex.m
@@ -22,6 +22,8 @@
 ## Returns the hex number corresponding to the decimal number d.  For
 ## example, dec2hex (2748) returns "abc". 
 
+## Author: jwe
+
 function h = dec2hex (d)
 
 ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/findstr.m b/scripts/strings/findstr.m
--- a/scripts/strings/findstr.m
+++ b/scripts/strings/findstr.m
@@ -30,6 +30,8 @@
 ##   findstr ("abababa", "aba")     =>  [1, 3, 5]
 ##   findstr ("abababa", "aba", 0)  =>  [1, 5]
 
+## Author: jwe
+
 function v = findstr (s, t, overlap)
 
   ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/hex2dec.m b/scripts/strings/hex2dec.m
--- a/scripts/strings/hex2dec.m
+++ b/scripts/strings/hex2dec.m
@@ -23,6 +23,8 @@
 ## quotes.  For example, hex2dec ("12B") and hex2dec ("12b") both
 ## return 299.
 
+## Author: jwe
+
 function d = hex2dec (h)
 
   ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/index.m b/scripts/strings/index.m
--- a/scripts/strings/index.m
+++ b/scripts/strings/index.m
@@ -24,6 +24,8 @@
 ##
 ## NOTE: this function does not work for arrays of strings.
 
+## Author: jwe
+
 function n = index (s, t)
 
   ## This is patterned after the AWK function of the same name.
diff --git a/scripts/strings/rindex.m b/scripts/strings/rindex.m
--- a/scripts/strings/rindex.m
+++ b/scripts/strings/rindex.m
@@ -24,6 +24,8 @@
 ##
 ## NOTE: this function does not work for arrays of strings.
 
+## Author: jwe
+
 function n = rindex (s, t)
 
   ## This is patterned after the AWK function of the same name.
diff --git a/scripts/strings/split.m b/scripts/strings/split.m
--- a/scripts/strings/split.m
+++ b/scripts/strings/split.m
@@ -23,6 +23,8 @@
 ## pieces as the rows of M (padded with blanks to form a valid
 ## matrix).
 
+## Author: jwe
+
 function m = split (s, t)
   
 ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/str2mat.m b/scripts/strings/str2mat.m
--- a/scripts/strings/str2mat.m
+++ b/scripts/strings/str2mat.m
@@ -22,6 +22,8 @@
 ## Forms the matrix M containing the strings S1, ... as its rows.
 ## Each string is padded with blanks in order to form a valid matrix.
 
+## Author: jwe
+
 function m = str2mat (...)
   
   ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/strings/strcat.m b/scripts/strings/strcat.m
--- a/scripts/strings/strcat.m
+++ b/scripts/strings/strcat.m
@@ -17,6 +17,8 @@
 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ## 02111-1307, USA.
 
+## Author: jwe
+
 function st = strcat (s, t, ...)
 
   if (nargin > 1)
diff --git a/scripts/strings/strcmp.m b/scripts/strings/strcmp.m
--- a/scripts/strings/strcmp.m
+++ b/scripts/strings/strcmp.m
@@ -29,6 +29,8 @@
 ## elements corresponding to the rows of the string array?  To be
 ## compatible with Matlab, of course. 
 
+## Author: jwe
+
 function status = strcmp (s1, s2)
 
   if (nargin != 2)
diff --git a/scripts/strings/substr.m b/scripts/strings/substr.m
--- a/scripts/strings/substr.m
+++ b/scripts/strings/substr.m
@@ -22,6 +22,8 @@
 ## Returns the substring of S of length LEN starting at index BEG.
 ## If LEN is missing, the substring extends to the end of S.
 
+## Author: jwe
+
 function t = substr (s, beg, len)
 
   ## Original version by Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at>.
diff --git a/scripts/time/asctime.m b/scripts/time/asctime.m
--- a/scripts/time/asctime.m
+++ b/scripts/time/asctime.m
@@ -19,6 +19,8 @@
 
 ## usage: asctime (TMSTRUCT)
 
+## Author: jwe
+
 function retval = asctime (t)
 
   if (nargin == 1)
diff --git a/scripts/time/clock.m b/scripts/time/clock.m
--- a/scripts/time/clock.m
+++ b/scripts/time/clock.m
@@ -23,6 +23,8 @@
 ##
 ##   [ year, month, day-of-month, hour, minute, second ]
 
+## Author: jwe
+
 function retval = clock ()
 
   tm = localtime (time ());
diff --git a/scripts/time/ctime.m b/scripts/time/ctime.m
--- a/scripts/time/ctime.m
+++ b/scripts/time/ctime.m
@@ -19,6 +19,8 @@
 
 ## usage: ctime (TIME)
 
+## Author: jwe
+
 function retval = ctime (t)
 
   if (nargin == 1)
diff --git a/scripts/time/date.m b/scripts/time/date.m
--- a/scripts/time/date.m
+++ b/scripts/time/date.m
@@ -21,6 +21,8 @@
 ##
 ## Return current date in a string, in the form `18-Jul-94'.
 
+## Author: jwe
+
 function retval = date ()
 
   retval = strftime ("%d-%b-%y", localtime (time ()));