Mercurial > hg > octave-nkf

diff scripts/control/zp2sys.m @ 3279:6dd06d525de6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-10-12 16:52:40 by jwe]
author jwe
date Tue, 12 Oct 1999 16:53:06 +0000
parents 041ea33fbbf4
children f7e4a95916f2
line wrap: on
line diff
--- a/scripts/control/zp2sys.m
+++ b/scripts/control/zp2sys.m
@@ -1,4 +1,4 @@
-# Copyright (C) 1996,1998 A. Scottedward Hodel 
+# Copyright (C) 1996,1998 Auburn University.  All Rights Reserved
 #
 # This file is part of Octave. 
 #
@@ -41,12 +41,16 @@
   if( ! (is_vector(zer) | isempty(zer) ) )
     error("zer must be a vector or empty");
   endif
-  zer = reshape(zer,1,length(zer));		# make it a row vector
+  if(!isempty(zer))
+    zer = reshape(zer,1,length(zer));		# make it a row vector
+  endif
 
   if( ! (is_vector(pol) | isempty(pol)))
     error("pol must be a vector");
   endif
-  pol = reshape(pol,1,length(pol));
+  if(!isempty(pol))
+    pol = reshape(pol,1,length(pol));
+  endif
 
   if (! is_scalar(k))
      error('k must be a scalar');