Mercurial > hg > octave-lyh

diff scripts/polynomial/polyreduce.m @ 2311:2b5788792cad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-11 20:18:38 by jwe]
author jwe
date Thu, 11 Jul 1996 20:18:38 +0000
parents 5cffc4b8de57
children 204cc7db6f4a
line wrap: on
line diff
--- a/scripts/polynomial/polyreduce.m
+++ b/scripts/polynomial/polyreduce.m
@@ -17,15 +17,15 @@
 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ### 02111-1307, USA.
 
-function p = polyreduce (p)
+## usage: polyreduce(c)
+##
+## Reduces a polynomial coefficient vector to a minimum number of terms,
+## i.e. it strips off any leading zeros.
+##
+## SEE ALSO: poly, roots, conv, deconv, residue, filter, polyval, polyvalm,
+##           polyderiv, polyinteg
 
-  ## usage: polyreduce(c)
-  ##
-  ## Reduces a polynomial coefficient vector to a minimum number of terms,
-  ## i.e. it strips off any leading zeros.
-  ##
-  ## SEE ALSO: poly, roots, conv, deconv, residue, filter, polyval, polyvalm,
-  ##           polyderiv, polyinteg
+function p = polyreduce (p)
 
   ## Written by Tony Richardson (amr@mpl.ucsd.edu) June 1994.