Mercurial > hg > octave-nkf

diff scripts/polynomial/poly.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/poly.m
+++ b/scripts/polynomial/poly.m
@@ -26,9 +26,11 @@
 ## If x is a vector, poly (x) is a vector of coefficients of the
 ## polynomial whose roots are the elements of x.
 
-function y = poly (x)
+## Author: KH <Kurt.Hornik@neuro.tuwien.ac.at>
+## Created: 24 December 1993
+## Adapted-By: jwe
 
-  ## Written by KH (Kurt.Hornik@neuro.tuwien.ac.at) Dec 24, 1993.
+function y = poly (x)
 
   if (nargin != 1)
     usage ("poly (x)");