Mercurial > octave

changeset 2314:949ab8eba8bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-12 03:58:02 by jwe]
author jwe
date Fri, 12 Jul 1996 03:58:02 +0000
parents 5ca126254d15
children bf8b1bffb58f
files scripts/elfun/acot.m scripts/elfun/acoth.m scripts/elfun/acsc.m scripts/elfun/acsch.m scripts/elfun/asec.m scripts/elfun/asech.m scripts/elfun/cot.m scripts/elfun/coth.m scripts/elfun/csc.m scripts/elfun/csch.m scripts/elfun/log2.m scripts/elfun/sec.m scripts/elfun/sech.m scripts/general/columns.m scripts/general/fliplr.m scripts/general/flipud.m scripts/general/int2str.m scripts/general/is_matrix.m scripts/general/is_scalar.m scripts/general/is_vector.m scripts/general/isempty.m scripts/general/length.m scripts/general/logspace.m scripts/general/nargchk.m scripts/general/num2str.m scripts/general/perror.m scripts/general/rem.m scripts/general/reshape.m scripts/general/rot90.m scripts/general/rows.m scripts/general/strerror.m scripts/general/tril.m scripts/general/triu.m scripts/io/printf.m scripts/io/puts.m scripts/linear-algebra/cond.m scripts/linear-algebra/norm.m scripts/linear-algebra/rank.m scripts/linear-algebra/trace.m scripts/miscellaneous/bug_report.m scripts/miscellaneous/cputime.m scripts/miscellaneous/dump_1_pref.m scripts/miscellaneous/dump_prefs.m scripts/miscellaneous/etime.m scripts/miscellaneous/flops.m scripts/miscellaneous/is_leap_year.m scripts/miscellaneous/list_primes.m scripts/miscellaneous/menu.m scripts/miscellaneous/popen2.m scripts/miscellaneous/texas_lotto.m scripts/miscellaneous/tic.m scripts/miscellaneous/toc.m scripts/miscellaneous/version.m scripts/plot/__plr1__.m scripts/plot/__plr2__.m scripts/plot/__plr__.m scripts/plot/__plt1__.m scripts/plot/__plt2__.m scripts/plot/__plt2mm__.m scripts/plot/__plt2mv__.m scripts/plot/__plt2ss__.m scripts/plot/__plt2vm__.m scripts/plot/__plt2vv__.m scripts/plot/__plt__.m scripts/plot/__pltopt__.m scripts/plot/axis.m scripts/plot/bar.m scripts/plot/contour.m scripts/plot/figure.m scripts/plot/grid.m scripts/plot/hist.m scripts/plot/loglog.m scripts/plot/mesh.m scripts/plot/meshdom.m scripts/plot/meshgrid.m scripts/plot/plot.m scripts/plot/polar.m scripts/plot/semilogx.m scripts/plot/semilogy.m scripts/plot/shg.m scripts/plot/sombrero.m scripts/plot/stairs.m scripts/plot/title.m scripts/plot/xlabel.m scripts/plot/ylabel.m scripts/polynomial/polyder.m scripts/set/complement.m scripts/set/create_set.m scripts/set/intersection.m scripts/set/union.m scripts/signal/freqz.m scripts/signal/sinc.m scripts/specfun/betainc.m scripts/specfun/gammainc.m scripts/special-matrix/hadamard.m scripts/special-matrix/hankel.m scripts/special-matrix/hilb.m scripts/special-matrix/invhilb.m scripts/special-matrix/toeplitz.m scripts/special-matrix/vander.m scripts/statistics/mean.m scripts/statistics/median.m scripts/statistics/std.m scripts/strings/bin2dec.m scripts/strings/blanks.m scripts/strings/deblank.m scripts/strings/dec2bin.m scripts/strings/dec2hex.m scripts/strings/findstr.m scripts/strings/hex2dec.m scripts/strings/index.m scripts/strings/rindex.m scripts/strings/split.m scripts/strings/str2mat.m scripts/strings/strcat.m scripts/strings/strcmp.m scripts/strings/substr.m scripts/time/asctime.m scripts/time/clock.m scripts/time/ctime.m scripts/time/date.m
diffstat 121 files changed, 242 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/elfun/acot.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/acot.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## acot (z):  compute the inverse cotangent for each element of z.
 
+## Author: jwe
+
 function w = acot (z)
 
   if (nargin != 1)
--- a/scripts/elfun/acoth.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/acoth.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/elfun/acsc.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/acsc.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## acsc (z):  compute the inverse cosecant for each element of z.
 
+## Author: jwe
+
 function w = acsc (z)
   
   if (nargin != 1)
--- a/scripts/elfun/acsch.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/acsch.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/elfun/asec.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/asec.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## asec (z):  compute the inverse secant for each element of z.
 
+## Author: jwe
+
 function w = asec (z)
   
   if (nargin != 1)
--- a/scripts/elfun/asech.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/asech.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/elfun/cot.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/cot.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## cot (z):  compute the cotangent for each element of z.
 
+## Author: jwe
+
 function w = cot (z)
   
   if (nargin != 1)
--- a/scripts/elfun/coth.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/coth.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## coth (z):  compute the hyperbolic cotangent for each element of z.
 
+## Author: jwe
+
 function w = coth (z)
   
   if (nargin != 1)
--- a/scripts/elfun/csc.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/csc.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## csc (z):  compute the cosecant for each element of z.
 
+## Author: jwe
+
 function w = csc (z)
   
   if (nargin != 1)
--- a/scripts/elfun/csch.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/csch.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## csch (z):  compute the hyperbolic cosecant for each element of z.
 
+## Author: jwe
+
 function w = csch (z)
   
   if (nargin != 1)
--- a/scripts/elfun/log2.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/log2.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/elfun/sec.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/sec.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## sec (z): compute the secant for each element of z.
 
+## Author: jwe
+
 function w = sec (z)
   
   if (nargin != 1)
--- a/scripts/elfun/sech.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/elfun/sech.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## sech (z):  compute the hyperbolic secant for each element of z.
 
+## Author: jwe
+
 function w = sech (z)
   
 if (nargin != 1)
--- a/scripts/general/columns.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/columns.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: size, rows, length, is_scalar, is_vector, is_matrix
 
+## Author: jwe
+
 function nc = columns (x)
 
   if (nargin != 1)
--- a/scripts/general/fliplr.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/fliplr.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: flipu, rot90
 
+## Author: jwe
+
 function y = fliplr (x)
 
   if (nargin != 1)
--- a/scripts/general/flipud.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/flipud.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: fliplr, rot90
 
+## Author: jwe
+
 function y = flipud (x)
 
   if (nargin != 1)
--- a/scripts/general/int2str.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/int2str.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: sprintf, num2str 
 
+## Author: jwe
+
 function retval = int2str (x)
 
   ## XXX FIXME XXX -- this will fail for very large values.
--- a/scripts/general/is_matrix.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/is_matrix.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: size, rows, columns, length, is_scalar, is_vector
 
+## Author: jwe
+
 function retval = is_matrix (x)
 
   if (nargin == 1)
--- a/scripts/general/is_scalar.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/is_scalar.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: size, rows, columns, length, is_scalar, is_matrix
 
+## Author: jwe
+
 function retval = is_scalar (x)
 
   if (nargin == 1)
--- a/scripts/general/is_vector.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/is_vector.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: size, rows, columns, length, is_scalar, is_matrix
 
+## Author: jwe
+
 function retval = is_vector (x)
 
   if (nargin == 1)
--- a/scripts/general/isempty.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/isempty.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/general/length.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/length.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: size, rows, columns, is_scalar, is_vector, is_matrix
 
+## Author: jwe
+
 function len = length (x)
 
   if (nargin != 1)
--- a/scripts/general/logspace.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/logspace.m	Fri Jul 12 03:58:02 1996 +0000
@@ -35,6 +35,8 @@
 ##
 ## See also: linspace
 
+## Author: jwe
+
 function retval = logspace (x1, x2, n)
 
   if (nargin == 2)
--- a/scripts/general/nargchk.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/nargchk.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/general/num2str.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/num2str.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: sprintf, int2str
 
+## Author: jwe
+
 function retval = num2str (x)
 
   if (nargin == 1)
--- a/scripts/general/perror.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/perror.m	Fri Jul 12 03:58:02 1996 +0000
@@ -28,6 +28,8 @@
 ##
 ## See also: strerror
 
+## Author: jwe
+
 function perror (name, err)
 
   if (nargin != 2)
--- a/scripts/general/rem.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/rem.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## Return remainder (x, y).
 
+## Author: jwe
+
 function retval = rem (x, y)
 
   if (nargin != 2)
--- a/scripts/general/reshape.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/reshape.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: `:', do_fortran_indexing
 
+## Author: jwe
+
 function retval = reshape (a, m, n)
 
   if (nargin != 3)
--- a/scripts/general/rot90.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/rot90.m	Fri Jul 12 03:58:02 1996 +0000
@@ -25,6 +25,8 @@
 ##
 ## See also: flipud, fliplr
 
+## Author: jwe
+
 function y = rot90 (x, k)
 
   if (nargin < 2)
--- a/scripts/general/rows.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/rows.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: size, columns, length, is_scalar, is_vector, is_matrix
 
+## Author: jwe
+
 function nr = rows (x)
 
   if (nargin != 1)
--- a/scripts/general/strerror.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/strerror.m	Fri Jul 12 03:58:02 1996 +0000
@@ -27,6 +27,8 @@
 ##   npsol : 4.0
 ##   qpsol : 3.2
 
+## Author: jwe
+
 function msg = strerror (name, err)
 
   if (nargin != 2)
--- a/scripts/general/tril.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/tril.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: triu, diag
 
+## Author: jwe
+
 function retval = tril (x, k)
 
   if (nargin > 0)
--- a/scripts/general/triu.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/general/triu.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: tril, diag
 
+## Author: jwe
+
 function retval = triu (x, k)
 
   if (nargin > 0)
--- a/scripts/io/printf.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/io/printf.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: fprintf sprintf
 
+## Author: jwe
+
 function retval = printf (fmt, ...)
 
   retval = -1;
--- a/scripts/io/puts.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/io/puts.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: fputs, printf, fprintf
 
+## Author: jwe
+
 function retval = puts (s)
 
   retval = -1;
--- a/scripts/linear-algebra/cond.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/linear-algebra/cond.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: norm, svd
 
+## Author: jwe
+
 function retval = cond (a)
 
   if (nargin == 1)
--- a/scripts/linear-algebra/norm.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/linear-algebra/norm.m	Fri Jul 12 03:58:02 1996 +0000
@@ -43,6 +43,8 @@
 ##
 ## See also: cond, svd
 
+## Author: jwe
+
 function retval = norm (x, p)
 
   if (nargin < 1 || nargin > 2)
--- a/scripts/linear-algebra/rank.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/linear-algebra/rank.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/linear-algebra/trace.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/linear-algebra/trace.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## Returns the trace (the sum of the diagonal elements) of x.
 
+## Author: jwe
+
 function y = trace (x)
 
   if (nargin != 1)
--- a/scripts/miscellaneous/bug_report.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/bug_report.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/miscellaneous/cputime.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/cputime.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## Get CPU time statistics.
 
+## Author: jwe
+
 function [total, user, system] = cputime ()
 
   if (nargin != 0)
--- a/scripts/miscellaneous/dump_1_pref.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/dump_1_pref.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/miscellaneous/dump_prefs.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/dump_prefs.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/miscellaneous/etime.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/etime.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: tic, toc, clock, cputime
 
+## Author: jwe
+
 function secs = etime (t1, t0)
 
   if (nargin != 2)
--- a/scripts/miscellaneous/flops.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/flops.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## Count floating point operations.
 
+## Author: jwe
+
 function retval = flops ()
 
   if (nargin > 0)
--- a/scripts/miscellaneous/is_leap_year.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/is_leap_year.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/miscellaneous/list_primes.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/list_primes.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## The algorithm used is from page 218 of the TeXbook.
 
+## Author: jwe
+
 function retval = list_primes (n)
 
   if (nargin > 0)
--- a/scripts/miscellaneous/menu.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/menu.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## See also: disp, printf, input
 
+## Author: jwe
+
 function num = menu (t, ...)
 
   if (nargin < 2)
--- a/scripts/miscellaneous/popen2.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/popen2.m	Fri Jul 12 03:58:02 1996 +0000
@@ -38,6 +38,8 @@
 ##  endwhile
 ##  fclose (out);
 
+## Author: jwe
+
 function [in, out, pid] = popen2 (command, args)
 
   in = -1;
--- a/scripts/miscellaneous/texas_lotto.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/texas_lotto.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: rand
 
+## Author: jwe
+
 function picks = texas_lotto ()
 
   if (nargin != 0)
--- a/scripts/miscellaneous/tic.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/tic.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: toc, clock, etime, cputime
 
+## Author: jwe
+
 function tic ()
 
   if (nargin != 0)
--- a/scripts/miscellaneous/toc.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/toc.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: tic, clock, etime, cputime
 
+## Author: jwe
+
 function secs = toc ()
 
   if (nargin != 0)
--- a/scripts/miscellaneous/version.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/miscellaneous/version.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: OCTAVE_VERSION
 
+## Author: jwe
+
 function vs = version ()
 
   if (nargin != 0)
--- a/scripts/plot/__plr1__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plr1__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plr2__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plr2__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plr__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plr__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt1__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt1__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt2__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt2__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt2mm__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt2mm__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt2mv__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt2mv__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt2ss__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt2ss__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt2vm__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt2vm__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt2vv__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt2vv__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__plt__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__plt__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/__pltopt__.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/__pltopt__.m	Fri Jul 12 03:58:02 1996 +0000
@@ -60,6 +60,8 @@
 ##       5       cyan                house
 ##       6       brown               there exists
 
+## Author: jwe
+
 function fmt = plot_opt (caller, opt)
 
   set_color = 0;
--- a/scripts/plot/axis.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/axis.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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
--- a/scripts/plot/bar.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/bar.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/contour.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/contour.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
 
 
--- a/scripts/plot/figure.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/figure.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/grid.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/grid.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/hist.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/hist.m	Fri Jul 12 03:58:02 1996 +0000
@@ -38,6 +38,8 @@
 ##
 ## See also: bar
 
+## Author: jwe
+
 function [nn, xx] = hist (y, x)
 
   if (nargin < 1 || nargin > 2)
--- a/scripts/plot/loglog.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/loglog.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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;
--- a/scripts/plot/mesh.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/mesh.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/meshdom.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/meshdom.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/meshgrid.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/meshgrid.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/plot.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/plot.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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;
--- a/scripts/plot/polar.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/polar.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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;
--- a/scripts/plot/semilogx.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/semilogx.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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;
--- a/scripts/plot/semilogy.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/semilogy.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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;
--- a/scripts/plot/shg.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/shg.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/sombrero.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/sombrero.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ##   z = sin (x^2 + y^2) / (x^2 + y^2);
 
+## Author: jwe
+
 function sombrero (n)
 
   if (nargin != 1)
--- a/scripts/plot/stairs.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/stairs.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
 
 
--- a/scripts/plot/title.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/title.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/xlabel.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/xlabel.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/plot/ylabel.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/plot/ylabel.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/polynomial/polyder.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/polynomial/polyder.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## SEE ALSO: polyderiv
 
+## Author: jwe
+
 function q = polyder (p)
 
   if (nargin == 1)
--- a/scripts/set/complement.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/set/complement.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See - create_set, union, intersection
 
+## Author: jwe
+
 function y = complement (a, b)
 
   if (nargin != 2)
--- a/scripts/set/create_set.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/set/create_set.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See - union, intersection, complement
 
+## Author: jwe
+
 function y = create_set(x)
 
   if ( nargin != 1)
--- a/scripts/set/intersection.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/set/intersection.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See - create_set, union, complement
 
+## Author: jwe
+
 function y = intersection(a,b)
 
   if (nargin != 2)
--- a/scripts/set/union.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/set/union.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See - create_set, intersection, complement
 
+## Author: jwe
+
 function y = union(a,b)
 
   if (nargin != 2)
--- a/scripts/signal/freqz.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/signal/freqz.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/signal/sinc.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/signal/sinc.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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"
--- a/scripts/specfun/betainc.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/specfun/betainc.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## See also: betai
 
+## Author: jwe
+
 function y = betainc (x, a, b)
   
   y = betai (a, b, x);
--- a/scripts/specfun/gammainc.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/specfun/gammainc.m	Fri Jul 12 03:58:02 1996 +0000
@@ -21,6 +21,8 @@
 ##
 ## See also: gammai
 
+## Author: jwe
+
 function y = gammainc (x, a)
   
   y = gammai (a, x);
--- a/scripts/special-matrix/hadamard.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/special-matrix/hadamard.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: hankel, vander, hilb, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = hadamard (k)
 
   if (nargin != 1)
--- a/scripts/special-matrix/hankel.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/special-matrix/hankel.m	Fri Jul 12 03:58:02 1996 +0000
@@ -28,6 +28,8 @@
 ##
 ## See also: vander, hadamard, hilb, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = hankel (c, r)
 
   if (nargin == 1)
--- a/scripts/special-matrix/hilb.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/special-matrix/hilb.m	Fri Jul 12 03:58:02 1996 +0000
@@ -26,6 +26,8 @@
 ##
 ## See also: hankel, vander, hadamard, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = hilb (n)
 
 
--- a/scripts/special-matrix/invhilb.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/special-matrix/invhilb.m	Fri Jul 12 03:58:02 1996 +0000
@@ -24,6 +24,8 @@
 ##
 ## See also: hankel, vander, hadamard, hilb, toeplitz
 
+## Author: jwe
+
 function retval = invhilb (n)
 
   if (nargin != 1)
--- a/scripts/special-matrix/toeplitz.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/special-matrix/toeplitz.m	Fri Jul 12 03:58:02 1996 +0000
@@ -28,6 +28,8 @@
 ##
 ## See also: hankel, vander, hadamard, hilb, invhib
 
+## Author: jwe
+
 function retval = toeplitz (c, r)
 
   if (nargin == 1)
--- a/scripts/special-matrix/vander.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/special-matrix/vander.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ## See also: hankel, hadamard, hilb, invhilb, toeplitz
 
+## Author: jwe
+
 function retval = vander (c)
 
   if (nargin != 1)
--- a/scripts/statistics/mean.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/statistics/mean.m	Fri Jul 12 03:58:02 1996 +0000
@@ -26,6 +26,8 @@
 ##
 ## See also: median, std
 
+## Author: jwe
+
 function retval = mean (a)
 
   if (nargin != 1)
--- a/scripts/statistics/median.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/statistics/median.m	Fri Jul 12 03:58:02 1996 +0000
@@ -26,6 +26,8 @@
 ##
 ## See also: std, mean
 
+## Author: jwe
+
 function retval = median (a)
 
   if (nargin != 1)
--- a/scripts/statistics/std.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/statistics/std.m	Fri Jul 12 03:58:02 1996 +0000
@@ -25,6 +25,8 @@
 ##
 ## See also: mean, median
 
+## Author: jwe
+
 function retval = std (a)
 
   if (nargin != 1)
--- a/scripts/strings/bin2dec.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/bin2dec.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/blanks.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/blanks.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/deblank.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/deblank.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/dec2bin.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/dec2bin.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/dec2hex.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/dec2hex.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/findstr.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/findstr.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/hex2dec.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/hex2dec.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/index.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/index.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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.
--- a/scripts/strings/rindex.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/rindex.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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.
--- a/scripts/strings/split.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/split.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/str2mat.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/str2mat.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/strings/strcat.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/strcat.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/strings/strcmp.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/strcmp.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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)
--- a/scripts/strings/substr.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/strings/substr.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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>.
--- a/scripts/time/asctime.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/time/asctime.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## usage: asctime (TMSTRUCT)
 
+## Author: jwe
+
 function retval = asctime (t)
 
   if (nargin == 1)
--- a/scripts/time/clock.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/time/clock.m	Fri Jul 12 03:58:02 1996 +0000
@@ -23,6 +23,8 @@
 ##
 ##   [ year, month, day-of-month, hour, minute, second ]
 
+## Author: jwe
+
 function retval = clock ()
 
   tm = localtime (time ());
--- a/scripts/time/ctime.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/time/ctime.m	Fri Jul 12 03:58:02 1996 +0000
@@ -19,6 +19,8 @@
 
 ## usage: ctime (TIME)
 
+## Author: jwe
+
 function retval = ctime (t)
 
   if (nargin == 1)
--- a/scripts/time/date.m	Thu Jul 11 21:25:22 1996 +0000
+++ b/scripts/time/date.m	Fri Jul 12 03:58:02 1996 +0000
@@ -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 ()));