Mercurial > hg > octave-nkf

diff scripts/polynomial/polyreduce.m @ 2312:204cc7db6f4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-11 21:20:36 by jwe]
author jwe
date Thu, 11 Jul 1996 21:20:36 +0000
parents 2b5788792cad
children 5ca126254d15
line wrap: on
line diff
--- a/scripts/polynomial/polyreduce.m
+++ b/scripts/polynomial/polyreduce.m
@@ -25,9 +25,11 @@
 ## SEE ALSO: poly, roots, conv, deconv, residue, filter, polyval, polyvalm,
 ##           polyderiv, polyinteg
 
-function p = polyreduce (p)
+## Author: Tony Richardson <amr@mpl.ucsd.edu>
+## Created: June 1994
+## Adapted-By: jwe
 
-  ## Written by Tony Richardson (amr@mpl.ucsd.edu) June 1994.
+function p = polyreduce (p)
 
   index = find (p == 0);