Mercurial > hg > octave-lyh

diff scripts/polynomial/polyreduce.m @ 1178:bceff7ccdb79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-03-23 21:42:24 by jwe]
author jwe
date Thu, 23 Mar 1995 21:42:24 +0000
parents f558749713f1
children f070efd56c3d
line wrap: on
line diff
--- a/scripts/polynomial/polyreduce.m
+++ b/scripts/polynomial/polyreduce.m
@@ -30,18 +30,22 @@
 
   index = find (p == 0);
 
-  index = find (index == 1:length(index));
+  if (length (index) != 0)
 
-  if (length (index) == 0)
-    return;
-  endif
+    index = find (index == 1:length(index));
+
+    if (length (index) != 0)
 
-  if(length(p)>1)
-    p = p (index (length (index))+1:length(p));
-  endif
+      if (length (p) > 1)
+	p = p (index (length (index))+1:length (p));
+      endif
 
-  if (length (p) == 0)
-    p = 0;
+      if (length (p) == 0)
+	p = 0;
+      endif
+
+    endif
+
   endif
 
 endfunction