Mercurial > octave

changeset 1596:b26b206a8994

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-11-01 00:47:21 by jwe]
author jwe
date Wed, 01 Nov 1995 00:47:21 +0000
parents f110a90eb183
children cf77ebb2719b
files scripts/polynomial/polyderiv.m
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/polynomial/polyderiv.m	Tue Oct 31 23:55:53 1995 +0000
+++ b/scripts/polynomial/polyderiv.m	Wed Nov 01 00:47:21 1995 +0000
@@ -16,7 +16,7 @@
 # along with Octave; see the file COPYING.  If not, write to the Free
 # Software Foundation, 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
-function p = polyderiv (p)
+function q = polyderiv (p)
 
 # usage: polyderiv (p)
 #
@@ -38,13 +38,13 @@
 
   lp = length (p);
   if (lp == 1)
-    p = 0;
+    q = 0;
     return;
   elseif (lp == 0)
-    p = [];
+    q = [];
     return;
   end
 
-  p = p (1:(lp-1)) .* [(lp-1):-1:1];
+  q = p (1:(lp-1)) .* [(lp-1):-1:1];
 
 endfunction