--- a/scripts/ChangeLog	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/ChangeLog	Fri Aug 09 19:00:16 2002 +0000
@@ -11,6 +11,7 @@
 	* deprecated/is_struct.m: New file.
 	* deprecated/is_symmetric.m: New file.
 	* deprecated/is_vector.m: New file.
+	* Change all callers of these functions to use the new names.
 
 	* deprecated: New directory.
 	* Makefile.in (SUBDIRS): Add it to the list.

--- a/scripts/audio/playaudio.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/audio/playaudio.m	Fri Aug 09 19:00:16 2002 +0000
@@ -33,7 +33,7 @@
 
   usage_msg = "playaudio (name, ext)  or  playaudio (X)";
 
-  if (nargin == 1 && is_vector (name) && ! isstr (name))
+  if (nargin == 1 && isvector (name) && ! isstr (name))
     ## play a vector
     [nr, nc] = size (name);
     if (nc != 1)

--- a/scripts/control/base/__bodquist__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/__bodquist__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -58,7 +58,7 @@
   endif
 
   ## check each argument to see if it's in the correct form
-  if (!is_struct(sys))
+  if (!isstruct(sys))
     error("sys must be a system data structure");
   endif
 

--- a/scripts/control/base/are.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/are.m	Fri Aug 09 19:00:16 2002 +0000
@@ -77,21 +77,21 @@
     else
       opt = "B";
     endif
-    if ((n = is_square(a)) == 0)
+    if ((n = issquare(a)) == 0)
       error ("are: a is not square");
     endif
 
     if (is_controllable(a,b) == 0)
       warning ("are: a, b are not controllable");
     endif
-    if ((m = is_square (b)) == 0)
+    if ((m = issquare (b)) == 0)
       b = b * b';
       m = rows (b);
     endif
     if (is_observable (a, c) == 0)
       warning ("are: a,c are not observable");
     endif
-    if ((p = is_square (c)) == 0)
+    if ((p = issquare (c)) == 0)
       c = c' * c;
       p = rows (c);
     endif

--- a/scripts/control/base/ctrb.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/ctrb.m	Fri Aug 09 19:00:16 2002 +0000
@@ -40,7 +40,7 @@
 
   if (nargin == 2)
     a = sys;
-  elseif (nargin == 1 && is_struct(sys))
+  elseif (nargin == 1 && isstruct(sys))
     sysupdate(sys,"ss");
     [a,b] = sys2ss(sys);
   else

--- a/scripts/control/base/damp.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/damp.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,7 +37,7 @@
   if(nargin < 1 || nargin > 2)
     usage("damp(p,[ tsamp])")
   endif
-  if(is_struct(p))
+  if(isstruct(p))
     if (nargin != 1)
       error("damp: when p is a system, tsamp parameter is not allowed.");
     endif
@@ -50,7 +50,7 @@
         t_samp = tsam;
     endif
   endif
-  if (!is_square(aa))
+  if (!issquare(aa))
     error("damp: Matrix p is not square.")
   endif
   if (DIGITAL && t_samp <= 0.0)

--- a/scripts/control/base/dare.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dare.m	Fri Aug 09 19:00:16 2002 +0000
@@ -93,7 +93,7 @@
       warning ("dare: a,c are not observable");
     endif
 
-    if ((p = is_square (c)) == 0)
+    if ((p = issquare (c)) == 0)
       c = c'*c;
       p = rows (c);
     endif
@@ -101,7 +101,7 @@
     ## Check r dimensions.
     n = rows(a);
     m = columns(b);
-    if ((m1 = is_square (r)) == 0)
+    if ((m1 = issquare (r)) == 0)
       warning ("dare: r is not square");
     elseif (m1 != m)
       warning ("b,r are not conformable");

--- a/scripts/control/base/dcgain.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dcgain.m	Fri Aug 09 19:00:16 2002 +0000
@@ -32,7 +32,7 @@
   if((nargin < 1) || (nargin > 2) || (nargout > 1))
     usage("[gm, ok] = dcgain(sys[, tol])");
   endif
-  if(!is_struct(sys))
+  if(!isstruct(sys))
     error("dcgain: first argument is not a system data structure.")
   endif
   sys = sysupdate(sys, "ss");

--- a/scripts/control/base/dkalman.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dkalman.m	Fri Aug 09 19:00:16 2002 +0000
@@ -115,7 +115,7 @@
   endif
 
   ## Check A.
-  if ((n = is_square (A)) == 0)
+  if ((n = issquare (A)) == 0)
     error ("dkalman: requires 1st parameter(A) to be square");
   endif
 
@@ -132,7 +132,7 @@
   endif
 
   ## Check Qw.
-  if ((nw1 = is_square (Qw)) == 0)
+  if ((nw1 = issquare (Qw)) == 0)
     error ("dkalman: requires 4rd parameter(Qw) to be square");
   else
     if (nw1 != nw)
@@ -141,7 +141,7 @@
   endif
 
   ## Check Rv.
-  if ((p1 = is_square (Rv)) == 0)
+  if ((p1 = issquare (Rv)) == 0)
     error ("dkalman: requires 5rd parameter(Rv) to be square");
   else
     if (p1 != p)

--- a/scripts/control/base/dlqr.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dlqr.m	Fri Aug 09 19:00:16 2002 +0000
@@ -111,7 +111,7 @@
   endif
 
   ## Check a.
-  if ((n = is_square (a)) == 0)
+  if ((n = issquare (a)) == 0)
     error ("dlqr: requires 1st parameter(a) to be square");
   endif
 
@@ -122,12 +122,12 @@
   endif
 
   ## Check q.
-  if ((n1 = is_square (q)) == 0 || n1 != n)
+  if ((n1 = issquare (q)) == 0 || n1 != n)
     error ("dlqr: q must be square and conformal with a");
   endif
 
   ## Check r.
-  if((m1 = is_square(r)) == 0 || m1 != m)
+  if((m1 = issquare(r)) == 0 || m1 != m)
     error ("dlqr: r must be square and conformal with column dimension of b");
   endif
 
@@ -149,7 +149,7 @@
   endif
 
   ## Check that q, (r) are symmetric, positive (semi)definite
-  if (is_symmetric (q) && is_symmetric (r)
+  if (issymmetric (q) && issymmetric (r)
       && all (eig (q) >= 0) && all (eig (r) > 0))
     p = dare (ao, b, qo, r);
     k = (r+b'*p*b)\(b'*p*a + s');

--- a/scripts/control/base/dlyap.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dlyap.m	Fri Aug 09 19:00:16 2002 +0000
@@ -63,11 +63,11 @@
 
 function x = dlyap (a, b)
 
-  if ((n = is_square (a)) == 0)
+  if ((n = issquare (a)) == 0)
     warning ("dlyap: a must be square");
   endif
 
-  if ((m = is_square (b)) == 0)
+  if ((m = issquare (b)) == 0)
     [n1, m] = size (b);
     if (n1 == n)
       b = b*b';

--- a/scripts/control/base/dre.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/dre.m	Fri Aug 09 19:00:16 2002 +0000
@@ -92,22 +92,22 @@
 
   if(nargin < 6 | nargin > 8 | nargout != 2)
     usage("[tvals,Plist] = dre(sys,Q,R,Qf,t0,tf{,Ptol})");
-  elseif(!is_struct(sys))
+  elseif(!isstruct(sys))
     error("sys must be a system data structure")
   elseif(is_digital(sys))
     error("sys must be a continuous time system")
-  elseif(!is_matrix(Q) | !is_matrix(R) | !is_matrix(Qf))
+  elseif(!ismatrix(Q) | !ismatrix(R) | !ismatrix(Qf))
     error("Q, R, and Qf must be matrices.");
-  elseif(!is_scalar(t0) | !is_scalar(tf))
+  elseif(!isscalar(t0) | !isscalar(tf))
     error("t0 and tf must be scalars")
   elseif(t0 >= tf)              error("t0=%e >= tf=%e",t0,tf);
   elseif(nargin == 6)           Ptol = 0.1;
-  elseif(!is_scalar(Ptol))      error("Ptol must be a scalar");
+  elseif(!isscalar(Ptol))      error("Ptol must be a scalar");
   elseif(Ptol <= 0)             error("Ptol must be positive");
   endif
 
   if(nargin < 8) maxits = 10;
-  elseif(!is_scalar(maxits))    error("maxits must be a scalar");
+  elseif(!isscalar(maxits))    error("maxits must be a scalar");
   elseif(maxits <= 0)           error("maxits must be positive");
   endif
   maxits = ceil(maxits);

--- a/scripts/control/base/freqchkw.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/freqchkw.m	Fri Aug 09 19:00:16 2002 +0000
@@ -30,7 +30,7 @@
 
   if(isempty(w))
     USEW = 0;
-  elseif(!is_vector(w))
+  elseif(!isvector(w))
     error(["w (",num2str(rows(w)),"x",num2str(columns(w)), ...
       "): must be [], a vector or a scalar"]);
   elseif( (max(abs(imag(w))) != 0) && (min(real(w)) <= 0) )

--- a/scripts/control/base/impulse.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/impulse.m	Fri Aug 09 19:00:16 2002 +0000
@@ -58,7 +58,7 @@
     usage ("[y, u] = impulse (sys, inp, tstop, n)");
   endif
 
-  if (! is_struct (sys))
+  if (! isstruct (sys))
     error ("impulse: sys must be a system data structure.");
   endif
 

--- a/scripts/control/base/lqg.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/lqg.m	Fri Aug 09 19:00:16 2002 +0000
@@ -72,7 +72,7 @@
   if ( (nargin < 5) | (nargin > 6))
     usage("[K,Q1,P1,Ee,Er] = lqg(sys,Sigw, Sigv,Q,R{,input_list})");
 
-  elseif(!is_struct(sys) )
+  elseif(!isstruct(sys) )
     error("sys must be in system data structure");
   endif
 
@@ -108,7 +108,7 @@
 
   varname = list("Sigw","Sigv","Q","R");
   for kk=1:length(varname);
-    eval(sprintf("chk = is_square(%s);",nth(varname,kk)));
+    eval(sprintf("chk = issquare(%s);",nth(varname,kk)));
     if(! chk ) error("lqg: %s is not square",nth(varname,kk)); endif
   endfor
 

--- a/scripts/control/base/lqr.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/lqr.m	Fri Aug 09 19:00:16 2002 +0000
@@ -123,7 +123,7 @@
   endif
 
   ## Check a.
-  if ((n = is_square (a)) == 0)
+  if ((n = issquare (a)) == 0)
     error ("lqr: requires 1st parameter(a) to be square");
   endif
 
@@ -134,12 +134,12 @@
   endif
 
   ## Check q.
-  if ( ((n1 = is_square (q)) == 0) || (n1 != n))
+  if ( ((n1 = issquare (q)) == 0) || (n1 != n))
     error ("lqr: q must be square and conformal with a");
   endif
 
   ## Check r.
-  if ( ((m1 = is_square(r)) == 0) || (m1 != m))
+  if ( ((m1 = issquare(r)) == 0) || (m1 != m))
     error ("lqr: r must be square and conformal with column dimension of b");
   endif
 
@@ -161,7 +161,7 @@
 
   ## Check that q, (r) are symmetric, positive (semi)definite
 
-  if (is_symmetric (q) && is_symmetric (r) ...
+  if (issymmetric (q) && issymmetric (r) ...
       && all (eig (q) >= 0) && all (eig (r) > 0))
     p = are (ao, (b/r)*b', qo);
     k = r\(b'*p + s');

--- a/scripts/control/base/lsim.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/lsim.m	Fri Aug 09 19:00:16 2002 +0000
@@ -45,7 +45,7 @@
     usage("[y,x] = lsim(sys,u,t[,x0])");
   endif
 
-  if(!is_struct(sys))
+  if(!isstruct(sys))
     error("sys must be in system data structure");
   endif
 

--- a/scripts/control/base/ltifr.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/ltifr.m	Fri Aug 09 19:00:16 2002 +0000
@@ -54,11 +54,11 @@
   if (nargin == 2)
     sys = a;
     w = b;
-    if(!is_struct(sys))
+    if(!isstruct(sys))
       error("two arguments: 1st must be a system data structure");
     endif
 
-    if (!is_vector(w))
+    if (!isvector(w))
       error("w must be a vector");
     endif
 
@@ -79,13 +79,13 @@
         rows(b),columns(b));
     endif
 
-    if (!is_square(a))
+    if (!issquare(a))
       error("ltifr:  A(%dx$d) must be square.",rows(a),columns(a))
     endif
 
   endif
 
-  if (!is_vector(w))
+  if (!isvector(w))
     error("w must be a vector");
   endif
 

--- a/scripts/control/base/lyap.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/lyap.m	Fri Aug 09 19:00:16 2002 +0000
@@ -86,7 +86,7 @@
     usage ("lyap (a, b {,c})");
   endif
 
-  if ((n = is_square(a)) == 0)
+  if ((n = issquare(a)) == 0)
     error ("lyap: a is not square");
   endif
 
@@ -94,7 +94,7 @@
 
     ## Transform Lyapunov equation to Sylvester equation form.
 
-    if ((m = is_square (b)) == 0)
+    if ((m = issquare (b)) == 0)
       if ((m = rows (b)) == n)
 
         ## solve a x + x a' + b b' = 0
@@ -124,7 +124,7 @@
 
     ## Check dimensions.
 
-    if ((m = is_square (b)) == 0)
+    if ((m = issquare (b)) == 0)
       error ("lyap: b must be square in a sylvester equation");
     endif
 

--- a/scripts/control/base/obsv.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/obsv.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,7 +43,7 @@
 
   if (nargin == 2)
     a = sys;
-  elseif (nargin == 1 && is_struct(sys))
+  elseif (nargin == 1 && isstruct(sys))
     sysupdate(sys,"ss");
     [a,b,c] = sys2ss(sys);
   else

--- a/scripts/control/base/place.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/place.m	Fri Aug 09 19:00:16 2002 +0000
@@ -49,7 +49,7 @@
 
   ## check arguments
 
-  if(!is_struct(sys))
+  if(!isstruct(sys))
     error("sys must be in system data structure format (see ss2sys)");
   endif
   sys = sysupdate(sys,"ss");    # make sure it has state space form up to date

--- a/scripts/control/base/pzmap.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/pzmap.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,7 +36,7 @@
 
   if(nargin != 1)
     usage("pzmap(sys) or [zer,pol] = pzmap(sys)");
-  elseif (!is_struct(sys));
+  elseif (!isstruct(sys));
     error("sys must be in system format");
   endif
 

--- a/scripts/control/base/step.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/step.m	Fri Aug 09 19:00:16 2002 +0000
@@ -59,7 +59,7 @@
     usage ("[y, u] = step (sys, inp, tstop, n)");
   endif
 
-  if (! is_struct (sys))
+  if (! isstruct (sys))
     error ("step: sys must be a system data structure.");
   endif
 

--- a/scripts/control/base/tzero.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/base/tzero.m	Fri Aug 09 19:00:16 2002 +0000
@@ -55,7 +55,7 @@
   ## get A,B,C,D and Asys variables, regardless of initial form
   if(nargin == 4)
     Asys = ss2sys(A,B,C,D);
-  elseif( (nargin == 1) && (! is_struct(A)))
+  elseif( (nargin == 1) && (! isstruct(A)))
     usage("[zer,gain] = tzero(A,B,C,D) or zer = tzero(Asys)");
   elseif(nargin != 1)
     usage("[zer,gain] = tzero(A,B,C,D) or zer = tzero(Asys)");

--- a/scripts/control/hinf/h2norm.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/hinf/h2norm.m	Fri Aug 09 19:00:16 2002 +0000
@@ -33,7 +33,7 @@
 
   if((nargin != 1))
     usage("h2gain = h2norm(sys)");
-  elseif(!is_struct(sys))
+  elseif(!isstruct(sys))
     error("Sys must be in system data structure");
   end
   dflg = is_digital(sys);

--- a/scripts/control/hinf/hinfnorm.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/hinf/hinfnorm.m	Fri Aug 09 19:00:16 2002 +0000
@@ -67,7 +67,7 @@
 
   if((nargin == 0) || (nargin > 4))
     usage("[g gmin gmax] = hinfnorm(sys[,tol,gmin,gmax,ptol])");
-  elseif(!is_struct(sys))
+  elseif(!isstruct(sys))
     error("Sys must be a system data structure");
   endif
 
@@ -103,8 +103,8 @@
   endif
 
   ## check for scalar input arguments 2...5
-  if( ! (is_scalar(tol) && is_scalar(gmin)
-        && is_scalar(gmax) && is_scalar(ptol)) )
+  if( ! (isscalar(tol) && isscalar(gmin)
+        && isscalar(gmax) && isscalar(ptol)) )
     error("hinfnorm: tol, gmin, gmax, ptol must be scalars");
   endif
 

--- a/scripts/control/hinf/hinfsyn_ric.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/hinf/hinfsyn_ric.m	Fri Aug 09 19:00:16 2002 +0000
@@ -48,8 +48,8 @@
 
   x_ha_err = 0;        # assume success
   Xinf = [];                 # default return value
-  n = is_square(A);
-  nw = is_square(R);
+  n = issquare(A);
+  nw = issquare(R);
   if(rank(R) != nw)    x_ha_err = 6;
   else                 # build hamiltonian Ha for X_inf
     xx = ([BB; -C1'*d1dot]/R) * [d1dot'*C1, BB'];

--- a/scripts/control/hinf/is_dgkf.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/hinf/is_dgkf.m	Fri Aug 09 19:00:16 2002 +0000
@@ -124,9 +124,9 @@
 
   if (nargin < 3) | (nargin > 4)
     usage("[retval,dgkf_struct] = is_dgkf(Asys,nu,ny{,tol})");
-  elseif (! is_scalar(nu) | ! is_scalar(ny) )
+  elseif (! isscalar(nu) | ! isscalar(ny) )
     error("is_dgkf: arguments 2 and 3 must be scalars")
-  elseif (! is_struct(Asys) )
+  elseif (! isstruct(Asys) )
     error("Argument 1 must be a system data structure");
   endif
   if(nargin < 4)

--- a/scripts/control/obsolete/dlqg.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/obsolete/dlqg.m	Fri Aug 09 19:00:16 2002 +0000
@@ -54,7 +54,7 @@
     ## system data structure format
 
     ## check that it really is system data structure
-    if(! is_struct(A) )
+    if(! isstruct(A) )
       error("dlqg: 5 arguments, first argument is not a system data structure structure")
     endif
 
@@ -106,7 +106,7 @@
     error ("dlqg: invalid number of arguments")
   endif
 
-  if (! (is_square(Sigw) && is_square(Sigv) ) )
+  if (! (issquare(Sigw) && issquare(Sigv) ) )
     error("dlqg: Sigw, Sigv must be square");
   endif
 

--- a/scripts/control/obsolete/packsys.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/obsolete/packsys.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,7 +42,7 @@
 
   ## check dflg
   if(nargin == 5)
-    if( !is_scalar(dflg))
+    if( !isscalar(dflg))
       [m,n] = size(dflg);
       error(["packsys: dflg (",num2str(m),",",num2str(n), ...
         ") must be a scalar."]);

--- a/scripts/control/system/abcddim.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/abcddim.m	Fri Aug 09 19:00:16 2002 +0000
@@ -78,7 +78,7 @@
   [c, cn, cm] = __abcddims__ (c);
   [d, dn, dm] = __abcddims__ (d);
 
-  if ( (!is_square(a)) & (!isempty(a)) )
+  if ( (!issquare(a)) & (!isempty(a)) )
     warning (["abcddim: a is not square (",num2str(an),"x",num2str(am),")"]);
     return
   endif

--- a/scripts/control/system/buildssic.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/buildssic.m	Fri Aug 09 19:00:16 2002 +0000
@@ -134,7 +134,7 @@
     usage("sys = buildssic(Clst,Ulst,Olst,Ilst,s1,s2,s3,s4,s5,s6,s7,s8)");
   endif
   if (nargin >= 5)
-    if (!is_struct(s1))
+    if (!isstruct(s1))
       error("---> s1 must be a structed system.");
     endif
     s1 = sysupdate(s1, "ss");
@@ -151,7 +151,7 @@
   endif
   for ii = 6:nargin
     eval(["ss = s", num2str(ii-4), ";"]);
-    if (!is_struct(ss))
+    if (!isstruct(ss))
       error("---> Parameter must be a structed system.");
     endif
     ss = sysupdate(ss, "ss");
@@ -197,7 +197,7 @@
   ## empty vector Ulst is OK
   lul = length(Ulst);
   if (lul)
-    if (!is_vector(Ulst))
+    if (!isvector(Ulst))
       error("---> Input u list Ulst must be a vector.");
     endif
     if (lul > m)
@@ -206,10 +206,10 @@
   endif
   if (!length(Olst))  Olst = [1:(p+lul)];  endif
   if (!length(Ilst))  Ilst = [1:m];        endif
-  if (!is_vector(Olst))
+  if (!isvector(Olst))
     error("---> Output list Olst must be a vector.");
   endif
-  if (!is_vector(Ilst))
+  if (!isvector(Ilst))
     error("---> Input list Ilst must be a vector.");
   endif
 

--- a/scripts/control/system/c2d.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/c2d.m	Fri Aug 09 19:00:16 2002 +0000
@@ -78,7 +78,7 @@
   ## parse input arguments
   if(nargin < 1 | nargin > 3)
     usage("dsys=c2d(sys[,T])");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be a system data structure");
   elseif (nargin == 1)
     opt = "ex";

--- a/scripts/control/system/d2c.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/d2c.m	Fri Aug 09 19:00:16 2002 +0000
@@ -64,7 +64,7 @@
 
   if( (nargin != 1) & (nargin != 2) )
     usage("csys = d2c(sys[,tol]), csys = d2c(sys,opt)");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be in system data structure");
   elseif(nargin == 1)
     opt = "log";

--- a/scripts/control/system/dmr2d.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/dmr2d.m	Fri Aug 09 19:00:16 2002 +0000
@@ -78,7 +78,7 @@
   if(nargin != 4 | nargout > 2)
     usage("[dsys,fidx] = dmr2d (sys, idx, sprefix, Ts2 {,cuflg})");
 
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be in system data structure form");
 
   elseif(!is_digital(sys))
@@ -89,7 +89,7 @@
   if(is_signal_list(idx) | isstr(idx))
     idx = sysidx(sys,"st",idx);
 
-  elseif (!(is_vector(idx) | isempty(idx)))
+  elseif (!(isvector(idx) | isempty(idx)))
     error(["idx(",num2str(rows(idx)),"x",num2str(columns(idx)), ...
       ") must be a vector"]);
 
@@ -110,7 +110,7 @@
   ## optional argument: cuflg
   if(nargin <= 4)
     cuflg = 1;          # default: constant inputs over Ts2 sampling interv.
-  elseif( !is_scalar(cuflg) )
+  elseif( !isscalar(cuflg) )
     error("cuflg must be a scalar")
   elseif( cuflg != 0 | cuflg != 1)
     error(["cuflg = ",num2str(cuflg),", should be 0 or 1"]);

--- a/scripts/control/system/is_controllable.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_controllable.m	Fri Aug 09 19:00:16 2002 +0000
@@ -53,7 +53,7 @@
 ## has a single input; otherwise a block Arnoldi iteration is performed
 ## with @code{krylovb}.
 ## @end deftypefn
-## @seealso{size, rows, columns, length, is_matrix, is_scalar, is_vector
+## @seealso{size, rows, columns, length, ismatrix, isscalar, isvector
 ## is_observable, is_stabilizable, is_detectable, krylov, and krylovb}
 
 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
@@ -67,7 +67,7 @@
   if(nargin < 1 | nargin > 3)
     usage("[retval,U] = %s\n\t%s", "is_controllable(a {, b, tol})", ...
         "is_controllable(sys{,tol})");
-  elseif(is_struct(a))
+  elseif(isstruct(a))
     ## system structure passed.
     sys = sysupdate(a,"ss");
     [a,bs] = sys2ss(sys);
@@ -91,7 +91,7 @@
   if(deftol) tol = 1000*eps; endif
 
   ## check tol dimensions
-  if( !is_scalar(tol) )
+  if( !isscalar(tol) )
     error("is_controllable: tol(%dx%d) must be a scalar", ...
         rows(tol),columns(tol));
   elseif( !is_sample(tol) )
@@ -99,7 +99,7 @@
   endif
 
   ## check dimensions compatibility
-  n = is_square (a);
+  n = issquare (a);
   [nr, nc] = size (b);
 
   if (n == 0 | n != nr | nc == 0)

--- a/scripts/control/system/is_detectable.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_detectable.m	Fri Aug 09 19:00:16 2002 +0000
@@ -31,8 +31,8 @@
 ## Default: tol = 10*norm(a,'fro')*eps
 ##
 ## @end deftypefn
-## @seealso{is_stabilizable, size, rows, columns, length, is_matrix,
-## is_scalar, and is_vector}
+## @seealso{is_stabilizable, size, rows, columns, length, ismatrix,
+## isscalar, and isvector}
 
 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
 ## Created: August 1993
@@ -42,7 +42,7 @@
 
   if( nargin < 1)
     usage("[retval,U] = is_detectable(a , c {, tol})");
-  elseif(is_struct(a))
+  elseif(isstruct(a))
     ## system form
     if(nargin == 2)
       tol = c;

--- a/scripts/control/system/is_observable.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_observable.m	Fri Aug 09 19:00:16 2002 +0000
@@ -29,7 +29,7 @@
 ## @strong{See} @code{is_controllable} for detailed description of arguments
 ## and default values.
 ## @end deftypefn
-## @seealso{size, rows, columns, length, is_matrix, is_scalar, and is_vector}
+## @seealso{size, rows, columns, length, ismatrix, isscalar, and isvector}
 
 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
 ## Created: August 1993
@@ -39,7 +39,7 @@
 
   if( nargin < 1)
     usage("[retval,U] = is_observable(a , c {, tol})");
-  elseif(is_struct(a))
+  elseif(isstruct(a))
     ## system form
     if(nargin == 2)
       tol = c;

--- a/scripts/control/system/is_sample.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_sample.m	Fri Aug 09 19:00:16 2002 +0000
@@ -27,6 +27,6 @@
 
 function out = is_sample (Ts)
 
-  out = (is_scalar(Ts) && (Ts == abs(Ts)) && (Ts != 0) );
+  out = (isscalar(Ts) && (Ts == abs(Ts)) && (Ts != 0) );
 
 endfunction

--- a/scripts/control/system/is_signal_list.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_signal_list.m	Fri Aug 09 19:00:16 2002 +0000
@@ -23,7 +23,7 @@
 
 function flg = is_signal_list(mylist)
 
-  flg = is_list(mylist);
+  flg = islist(mylist);
 
   if (flg)
     for ii = 1:length (mylist)

--- a/scripts/control/system/is_siso.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_siso.m	Fri Aug 09 19:00:16 2002 +0000
@@ -29,7 +29,7 @@
 
   if(nargin != 1)
     usage("SISO = is_siso(sys)");
-  elseif( !is_struct(sys))
+  elseif( !isstruct(sys))
     error("input must be a system structure (see ss2sys, tf2sys, zp2sys)");
   endif
 

--- a/scripts/control/system/is_stabilizable.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_stabilizable.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,7 +37,7 @@
 ## tol is a roundoff paramter, set to 200*eps if omitted.
 ## @end deftypefn
 
-## See also: size, rows, columns, length, is_matrix, is_scalar, is_vector
+## See also: size, rows, columns, length, ismatrix, isscalar, isvector
 ##     is_observable, is_stabilizable, is_detectable
 
 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
@@ -48,7 +48,7 @@
 function [retval, U] = is_stabilizable (a, b, tol)
 
   if(nargin < 1)        usage("[retval,U] = is_stabilizable(a {, b ,tol})");
-  elseif(is_struct(a))
+  elseif(isstruct(a))
     ## sustem passed.
     if(nargin == 2)
       tol = b;          % get tolerance

--- a/scripts/control/system/is_stable.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/is_stable.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,7 +37,7 @@
 ## @end table
 ## @end table
 ## @end deftypefn
-## @seealso{size, rows, columns, length, is_matrix, is_scalar, is_vector
+## @seealso{size, rows, columns, length, ismatrix, isscalar, isvector
 ## is_observable, is_stabilizable, is_detectable, krylov, and krylovb}
 
 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
@@ -48,7 +48,7 @@
 function retval = is_stable (a, tol, disc)
 
   if( (nargin < 1) | (nargin > 3) )   usage("is_stable(a {,tol,disc})");
-  elseif(is_struct(a))
+  elseif(isstruct(a))
     ## system was passed
     if(nargin < 3)                      disc = is_digital(a);
     elseif(disc != is_digital(a))
@@ -58,13 +58,13 @@
     a = sys2ss(sys);
   else
     if(nargin < 3)              disc = 0;               endif
-    if(is_square(a) == 0)
+    if(issquare(a) == 0)
       error("A(%dx%d) must be square",rows(A), columns(A));
     endif
   endif
 
   if(nargin < 2)                tol = 200*eps;
-  elseif( !is_scalar(tol) )
+  elseif( !isscalar(tol) )
     error("is_stable: tol(%dx%d) must be a scalar",rows(tol),columns(tol));
   endif
 

--- a/scripts/control/system/parallel.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/parallel.m	Fri Aug 09 19:00:16 2002 +0000
@@ -41,9 +41,9 @@
   if(nargin != 2)
     usage("sysp = parallel(Asys,Bsys)");
   endif
-  if(! is_struct(Asys) )
+  if(! isstruct(Asys) )
     error("1st input argument is not a system data structure")
-  elseif (! is_struct(Bsys) )
+  elseif (! isstruct(Bsys) )
     error("2nd input argument is not a system data structure")
   endif
   [Ann,Anz,mA] = sysdimensions(Asys);

--- a/scripts/control/system/ss2sys.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/ss2sys.m	Fri Aug 09 19:00:16 2002 +0000
@@ -214,10 +214,10 @@
   ## check for continuous states
   if( (nargin < 6) & (tsam == 0) )               n = na;
   elseif(nargin < 6)                             n = 0;
-  elseif((!is_matrix(n)) | isstr(n))
+  elseif((!ismatrix(n)) | isstr(n))
     error("Parameter n is not a numerical value.");
-  elseif( (!is_scalar(n)) | (n < 0 ) | (n != round(n)) )
-    if(is_scalar(n))     error("invalid value of n=%d,%e",n,n);
+  elseif( (!isscalar(n)) | (n < 0 ) | (n != round(n)) )
+    if(isscalar(n))     error("invalid value of n=%d,%e",n,n);
     else                 error("invalid value of n=(%dx%d)", ...
                            rows(n), columns(n));                endif
   endif
@@ -225,10 +225,10 @@
   ## check for num discrete states
   if( (nargin < 7) & (tsam == 0))               nz = 0;
   elseif(nargin < 7)                            nz = na - n;
-  elseif((!is_matrix(nz)) | isstr(nz))
+  elseif((!ismatrix(nz)) | isstr(nz))
     error("Parameter nz is not a numerical value.");
-  elseif( (!is_scalar(nz)) | (nz < 0 ) | (nz != round(nz)) )
-    if(is_scalar(nz))
+  elseif( (!isscalar(nz)) | (nz < 0 ) | (nz != round(nz)) )
+    if(isscalar(nz))
       error(["invalid value of nz=",num2str(nz)]);
     else
       error(["invalid value of nz=(",num2str(rows(nz)),"x", ...

--- a/scripts/control/system/starp.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/starp.m	Fri Aug 09 19:00:16 2002 +0000
@@ -55,10 +55,10 @@
   if((nargin != 2) && (nargin != 4))
     usage("sys = starp(P, K, ny, nu)");
   endif
-  if (!is_struct(P))
+  if (!isstruct(P))
     error("---> P must be in system data structure");
   endif
-  if (!is_struct(K))
+  if (!isstruct(K))
     error("---> K must be in system data structure");
   endif
 

--- a/scripts/control/system/sys2ss.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sys2ss.m	Fri Aug 09 19:00:16 2002 +0000
@@ -83,7 +83,7 @@
     usage("[a,b,c,d,tsam,n,nz,stname,inname,outname,yd] = sys2ss(sys)")
   endif
 
-  if( ! is_struct(sys) )
+  if( ! isstruct(sys) )
     error("input argument must be a system data structure");
   endif
 

--- a/scripts/control/system/sys2tf.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sys2tf.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,7 +42,7 @@
     usage("[num,den,tsam,inname,outname] = sys2tf(Asys)");
   endif
 
-  if( !is_struct(Asys))
+  if( !isstruct(Asys))
     error("Asys must be a system data structure (see ss2sys, tf2sys, zp2sys)");
   elseif (! is_siso(Asys) )
     [n, nz, m, p] = sysdimensions(Asys);

--- a/scripts/control/system/sys2zp.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sys2zp.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,7 +42,7 @@
 
   if(nargin != 1)
     usage("[zer,pol,k,tsam,inname,outname] = sys2zp(sys)");
-  elseif( !is_struct(sys))
+  elseif( !isstruct(sys))
     error("sysconnect: sys must be in system data structure form")
   elseif (! is_siso(sys) )
     [n, nz, m, p] = sysdimensions(sys);

--- a/scripts/control/system/sysadd.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysadd.m	Fri Aug 09 19:00:16 2002 +0000
@@ -53,7 +53,7 @@
   arglist = list();
   for kk=1:nargin
     arglist(kk) = varargin{kk};
-    if(!is_struct(nth(arglist,kk)))
+    if(!isstruct(nth(arglist,kk)))
       error("sysadd: argument %d is not a data structure",kk);
     endif
   endfor

--- a/scripts/control/system/sysappend.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysappend.m	Fri Aug 09 19:00:16 2002 +0000
@@ -82,9 +82,9 @@
   empty_list_elements_ok = 1;
 
   ## check input arguments
-  if ( (nargin < 2) | (nargin > 7) | (!is_struct(sys)))
+  if ( (nargin < 2) | (nargin > 7) | (!isstruct(sys)))
     usage("retsys = sysappend(sys,b,c[,d,outname,inname,yd]) ");
-  elseif(!is_struct(sys))
+  elseif(!isstruct(sys))
     error("sys must be a system data structure");
   endif
 
@@ -149,7 +149,7 @@
 
     ## construct new yd entries
     if(nargin == 7)
-      if(!is_vector(yd))
+      if(!isvector(yd))
         error(sprintf("yd(%dx%d) must be a vector",rows(yd),columns(yd)))
       elseif(rows(c) != length(yd) & rows(d) != length(yd))
         error(sprintf("length(yd) = %d; c(%dx%d), d(%dx%d); mismatch", ...

--- a/scripts/control/system/syschtsam.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/syschtsam.m	Fri Aug 09 19:00:16 2002 +0000
@@ -29,9 +29,9 @@
 
   if (nargin != 2)
     usage("retsys = syschtsam(sys,tsam)");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be in system data structure form");
-  elseif(!is_scalar(tsam))
+  elseif(!isscalar(tsam))
     disp("syschtsam:")
     tsam
     error("tsam must be a scalar")

--- a/scripts/control/system/sysconnect.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysconnect.m	Fri Aug 09 19:00:16 2002 +0000
@@ -116,7 +116,7 @@
   [nc,nz,mm,pp] = sysdimensions(sys);
   nn = nc+nz;
 
-  if( !is_struct(sys))
+  if( !isstruct(sys))
     error("sys must be in structured system form")
   elseif(pp < li)
     error(["length(output_list)=",num2str(li),", sys has only ", ...

--- a/scripts/control/system/syscont.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/syscont.m	Fri Aug 09 19:00:16 2002 +0000
@@ -46,7 +46,7 @@
 
   if (nargin != 1)
     usage("[csys,Acd,Ccd,Dcd] = syscont(sys)");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be in system data structure form");
   endif
 

--- a/scripts/control/system/sysdimensions.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysdimensions.m	Fri Aug 09 19:00:16 2002 +0000
@@ -69,7 +69,7 @@
 
   if(nargout > 5 | nargin < 1 | nargin > 2)
     usage("[n,nz,m,p[,yd]] = sysdimensions(sys{,opt})");
-  elseif(!is_struct(sys))
+  elseif(!isstruct(sys))
     usage("[n,nz,m,p] = sysdimensions(sys)");
   elseif(nargin == 1)
     opt = "all";

--- a/scripts/control/system/sysdisc.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysdisc.m	Fri Aug 09 19:00:16 2002 +0000
@@ -41,7 +41,7 @@
 
   if (nargin != 1)
     usage("[dsys,Adc,Cdc] = sysdisc(sys)");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be in system data structure form");
   endif
 

--- a/scripts/control/system/sysdup.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysdup.m	Fri Aug 09 19:00:16 2002 +0000
@@ -61,7 +61,7 @@
     usage("retsys = sysdup(Asys,output_list,input_list)");
   endif
 
-  if( !is_struct(Asys))
+  if( !isstruct(Asys))
     error("Asys must be a system data structure (see ss2sys, tf2sys, or zp2sys)")
   endif
 
@@ -78,7 +78,7 @@
   endif
 
   ## first duplicate inputs
-  if(is_vector(input_list))
+  if(isvector(input_list))
     for ii=1:length(input_list);
       bb(:,mm+ii) = bb(:,input_list(ii));
       dd(:,mm+ii) = dd(:,input_list(ii));

--- a/scripts/control/system/sysgetsignals.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysgetsignals.m	Fri Aug 09 19:00:16 2002 +0000
@@ -145,7 +145,7 @@
     usage("[stname{,inname,outname,yd}] = sysgetsignals(sys{,sigid,signum})")
   elseif(nargin > 1 & nargout > 1)
     usage("sig = sysgetsignals(sys,sigid{,signum,strflg})")
-  elseif( ! is_struct(sys) )
+  elseif( ! isstruct(sys) )
     error("input argument must be a system data structure");
   endif
   if(nargin < 4)  strflg = 0; endif
@@ -174,7 +174,7 @@
         error(sprintf("sysgetsignals(sys,\"%s\",%d):only %d entries.\n", ...
           sigid,signum, rows(stname)));
       else
-        if(!is_scalar(strflg))
+        if(!isscalar(strflg))
           error("strflg must be a scalar");
         endif
         switch(strflg)

--- a/scripts/control/system/sysgettsam.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysgettsam.m	Fri Aug 09 19:00:16 2002 +0000
@@ -23,7 +23,7 @@
 
 function T = sysgettsam (sys)
 
-  if(!is_struct(sys))
+  if(!isstruct(sys))
     usage("T = sysgettsam(sys)");
   endif
 

--- a/scripts/control/system/sysgettype.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysgettype.m	Fri Aug 09 19:00:16 2002 +0000
@@ -33,7 +33,7 @@
 
 function systype = sysgettype (sys)
 
-  if(!is_struct(sys))
+  if(!isstruct(sys))
     error("sysgettype: input sys is not a structure");
   endif
 

--- a/scripts/control/system/sysgroup.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysgroup.m	Fri Aug 09 19:00:16 2002 +0000
@@ -63,7 +63,7 @@
   arglist = list();
   for kk=1:nargin
     arglist(kk) = varargin{kk};
-    if(!is_struct(nth(arglist,kk)))
+    if(!isstruct(nth(arglist,kk)))
       error("sysgroup: argument %d is not a data structure",kk);
     endif
   endfor

--- a/scripts/control/system/sysidx.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysidx.m	Fri Aug 09 19:00:16 2002 +0000
@@ -28,7 +28,7 @@
 
   if (nargin != 3)
     usage ("idxvec = sysidx (sys, sigtype, signamelist)");
-  elseif (! is_struct (sys))
+  elseif (! isstruct (sys))
     error ("sys must be a system data structure");
   elseif (! isstr (sigtype))
     error ("sigtype must be a string");

--- a/scripts/control/system/sysmult.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysmult.m	Fri Aug 09 19:00:16 2002 +0000
@@ -46,7 +46,7 @@
   arglist = list();
   for kk=1:nargin
     arglist(kk) = varargin{kk};
-    if(!is_struct(nth(arglist,kk)))
+    if(!isstruct(nth(arglist,kk)))
       error("sysadd: argument %d is not a data structure",kk);
     endif
   endfor

--- a/scripts/control/system/sysout.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysout.m	Fri Aug 09 19:00:16 2002 +0000
@@ -54,7 +54,7 @@
     return;
   endif
 
-  if(! is_struct(sys))
+  if(! isstruct(sys))
     disp("sysout: input must be a system structure")
   endif
 

--- a/scripts/control/system/sysprune.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysprune.m	Fri Aug 09 19:00:16 2002 +0000
@@ -78,8 +78,8 @@
   endif
 
   ## check dimensions
-  if( !(is_vector(output_idx) | isempty(output_idx) )  )
-    if(!is_matrix(output_idx))
+  if( !(isvector(output_idx) | isempty(output_idx) )  )
+    if(!ismatrix(output_idx))
       error("sysprune: bad argument passed for output_idx");
     else
       error("sysprune: output_idx (%d x %d) must be a vector or empty", ...
@@ -89,8 +89,8 @@
      error("sysprune: duplicate entries found in output_idx");
   endif
 
-  if( !(is_vector(input_idx) | isempty(input_idx) )  )
-    if(!is_matrix(input_idx))
+  if( !(isvector(input_idx) | isempty(input_idx) )  )
+    if(!ismatrix(input_idx))
       error("sysprune: bad argument passed for input_idx");
     else
       error("sysprune: input_idx (%d x %d) must be a vector or empty", ...
@@ -100,8 +100,8 @@
      error("sysprune: duplicate entries found in input_idx");
   endif
 
-  if( !(is_vector(state_idx) | isempty(state_idx) )  )
-    if(!is_matrix(state_idx))
+  if( !(isvector(state_idx) | isempty(state_idx) )  )
+    if(!ismatrix(state_idx))
       error("sysprune: bad argument passed for state_idx");
     else
       error("sysprune: state_idx (%d x %d) must be a vector or empty", ...
@@ -117,7 +117,7 @@
   li = length(input_idx);
   lst = length(state_idx);
 
-  if( !is_struct(sys))
+  if( !isstruct(sys))
     error("Asys must be a system data structure (see ss2sys, tf2sys, or zp2sys)")
   elseif(pp < lo)
     error([num2str(lo)," output_idx entries, system has only ", ...

--- a/scripts/control/system/sysreorder.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysreorder.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,7 +43,7 @@
   A = pv'*ones(size(list));
   B = ones(size(pv'))*list;
   X = (A != B);
-  if(!is_vector(X))
+  if(!isvector(X))
     y = min(X');
   else
    y = X';

--- a/scripts/control/system/sysscale.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysscale.m	Fri Aug 09 19:00:16 2002 +0000
@@ -49,7 +49,7 @@
 
   if( (nargin < 3) || (nargin > 5)  )
     usage("retsys = sysscale(Asys,output_list,input_list{,inname,outname})");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be a structured system");
   endif
 
@@ -110,7 +110,7 @@
   sysc = outscale*sysc;
   sysd = outscale*sysd*inscale;
 
-  if( !is_square(outscale) )
+  if( !issquare(outscale) )
     ## strip extra output names (if any)
     sysoutname = sysoutname(1:min(rows(outscale),columns(outscale)));
     if( nargin < 4)
@@ -121,7 +121,7 @@
   else
     outname = sysoutname;
   endif
-  if( !is_square(inscale) )
+  if( !issquare(inscale) )
     ## strip extra output names (if any)
     sysinname = sysinname(1:min(rows(inscale),columns(inscale)));
     if(nargin < 5)

--- a/scripts/control/system/syssetsignals.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/syssetsignals.m	Fri Aug 09 19:00:16 2002 +0000
@@ -91,7 +91,7 @@
 
   if (nargin < 3 | nargin > 4)
     usage("retsys=syssetsignals(sys,opt,names{,sig_idx})");
-  elseif (!is_struct(sys))
+  elseif (!isstruct(sys))
     error("sys must be a system data structure");
   elseif (isempty(opt))
     opt = "out";
@@ -125,7 +125,7 @@
 
   if(strcmp(opt,"yd") == 0)
     ## it's a signal name list we're changing
-    if(!is_list(names))
+    if(!islist(names))
       names = list(names);
     endif
     if(!is_signal_list(names))
@@ -179,7 +179,7 @@
       sigvals = [];
     else
       nsigs = length(sig_vals);
-      if(!is_vector(names))
+      if(!isvector(names))
         error("syssetsignals: opt=yd, names(%dx%d) must be a vector", ...
           rows(names), columns(names));
       endif

--- a/scripts/control/system/syssub.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/syssub.m	Fri Aug 09 19:00:16 2002 +0000
@@ -52,7 +52,7 @@
   arglist = list();
   for kk=1:nargin
     arglist(kk) = varargin{kk};
-    if(!is_struct(nth(arglist,kk)))
+    if(!isstruct(nth(arglist,kk)))
       error("syssub: argument %d is not a data structure",kk);
     endif
   endfor

--- a/scripts/control/system/sysupdate.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/sysupdate.m	Fri Aug 09 19:00:16 2002 +0000
@@ -55,7 +55,7 @@
   ## check for correct number of inputs
   if (nargin != 2)
     usage("newsys = sysupdate(sys,opt)");
-  elseif(! is_struct(sys) )
+  elseif(! isstruct(sys) )
    error("1st argument must be system data structure")
   elseif(! (strcmp(opt,"tf") + strcmp(opt,"zp") + ...
         strcmp(opt,"ss") + strcmp(opt,"all")) )

--- a/scripts/control/system/tf2ss.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/tf2ss.m	Fri Aug 09 19:00:16 2002 +0000
@@ -51,9 +51,9 @@
   if(nargin != 2)        error("tf2ss: wrong number of input arguments")
   elseif(isempty(num))   error("tf2ss: empty numerator");
   elseif(isempty(den))   error("tf2ss: empy denominator");
-  elseif(!is_vector(num))
+  elseif(!isvector(num))
     error(sprintf("num(%dx%d) must be a vector",rows(num),columns(num)));
-  elseif(!is_vector(den))
+  elseif(!isvector(den))
     error(sprintf("den(%dx%d) must be a vector",rows(den),columns(den)));
   endif
 

--- a/scripts/control/system/tf2sys.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/tf2sys.m	Fri Aug 09 19:00:16 2002 +0000
@@ -66,8 +66,8 @@
   endif
 
   ## check input format
-  if( ! ( (is_vector(num) || is_scalar(num)) && ...
-        (is_vector(den) || is_scalar(den))) )
+  if( ! ( (isvector(num) || isscalar(num)) && ...
+        (isvector(den) || isscalar(den))) )
     error(["num (",num2str(rows(num)),"x",num2str(columns(num)), ...
       ") and den (",num2str(rows(den)),"x",num2str(columns(den)), ...
       ") must be vectors"])
@@ -84,7 +84,7 @@
   ## check sampling interval (if any)
   if(nargin <= 2)           tsam = 0;           # default
   elseif (isempty(tsam))    tsam = 0;           endif
-  if ( (! (is_scalar(tsam) && (imag(tsam) == 0) )) || (tsam < 0) )
+  if ( (! (isscalar(tsam) && (imag(tsam) == 0) )) || (tsam < 0) )
     error("tsam must be a positive real scalar")
   endif
 
@@ -113,7 +113,7 @@
   if (nargin > 3)
     ## make sure its a list of a single string
     if(!isempty(inname))
-      if(!is_list(inname))  inname = list(inname);  endif
+      if(!islist(inname))  inname = list(inname);  endif
       if( !is_signal_list(inname) )
         error("inname must be a string or list of strings");
       endif
@@ -128,7 +128,7 @@
   ## Set name of output
   if (nargin > 4)
     if(!isempty(outname))
-      if(!is_list(outname))  outname = list(outname);  endif
+      if(!islist(outname))  outname = list(outname);  endif
       if(!is_signal_list(outname))
         error("outname must be a string or a list of strings");
       endif

--- a/scripts/control/system/tfout.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/tfout.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,7 +36,7 @@
     usage("tfout(num,denom[,x])");
   endif
 
-  if ( (!is_vector(num)) | (!is_vector(denom)) )
+  if ( (!isvector(num)) | (!isvector(denom)) )
     error("tfout: first two argument must be vectors");
   endif
 

--- a/scripts/control/system/zp2ss.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/zp2ss.m	Fri Aug 09 19:00:16 2002 +0000
@@ -58,13 +58,13 @@
     error("Incorrect number of input arguments");
   endif
 
-  if(! (is_vector(zer) | isempty(zer)) )
+  if(! (isvector(zer) | isempty(zer)) )
     error(["zer(",num2str(rows(zer)),",",num2str(columns(zer)), ...
         ") should be a vector"]);
-  elseif(! (is_vector(pol) | isempty(pol) ) )
+  elseif(! (isvector(pol) | isempty(pol) ) )
     error(["pol(",num2str(rows(pol)),",",num2str(columns(pol)), ...
         ") should be a vector"]);
-  elseif(! is_scalar(k))
+  elseif(! isscalar(k))
     error(["k(",num2str(rows(k)),",",num2str(columns(k)), ...
         ") should be a scalar"]);
   elseif( k != real(k))

--- a/scripts/control/system/zp2sys.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/zp2sys.m	Fri Aug 09 19:00:16 2002 +0000
@@ -63,21 +63,21 @@
   endif
 
   ## check input format
-  if( ! (is_vector(zer) | isempty(zer) ) )
+  if( ! (isvector(zer) | isempty(zer) ) )
     error("zer must be a vector or empty");
   endif
   if(!isempty(zer))
     zer = reshape(zer,1,length(zer));           # make it a row vector
   endif
 
-  if( ! (is_vector(pol) | isempty(pol)))
+  if( ! (isvector(pol) | isempty(pol)))
     error("pol must be a vector");
   endif
   if(!isempty(pol))
     pol = reshape(pol,1,length(pol));
   endif
 
-  if (! is_scalar(k))
+  if (! isscalar(k))
      error("k must be a scalar");
   endif
 
@@ -104,7 +104,7 @@
 
   ## Set the type of system
   if (nargin > 3)
-    if( !is_scalar(tsam) )
+    if( !isscalar(tsam) )
       error("tsam must be a nonnegative scalar");
     endif
     if (tsam < 0)
@@ -125,7 +125,7 @@
   if (nargin > 4)
     ## make sure its a string
     if(!isempty(inname))
-      if(!is_list(inname))  inname = list(inname); endif
+      if(!islist(inname))  inname = list(inname); endif
       if(!is_signal_list(inname))
         error("inname must be a single signal name");
       endif
@@ -136,7 +136,7 @@
   ## Set name of output
   if (nargin > 5)
     if(!isempty(outname))
-      if(!is_list(outname))        outname = list(outname);    endif
+      if(!islist(outname))        outname = list(outname);    endif
       if(!is_signal_list(outname))
         error("outname must be a single signal name");
       endif

--- a/scripts/control/system/zp2tf.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/zp2tf.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,9 +43,9 @@
   [rp,cp] = size(pol);
   [rz,cz] = size(zer);
 
-  if(!(is_vector(zer) | isempty(zer)) )
+  if(!(isvector(zer) | isempty(zer)) )
     error(sprintf("zer(%dx%d) must be a vector",rz,cz));
-  elseif(!(is_vector(pol) | isempty(pol)) )
+  elseif(!(isvector(pol) | isempty(pol)) )
     error(sprintf("pol(%dx%d) must be a vector",rp,cp));
   elseif(length(zer) > length(pol))
     error(sprintf("zer(%dx%d) longer than pol(%dx%d)",rz,cz,rp,cp));

--- a/scripts/control/system/zpout.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/system/zpout.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,11 +36,11 @@
     usage("zpout(zer,pol,k[,x])");
   endif
 
-  if( !(is_vector(zer) | isempty(zer)) | !(is_vector(pol) | isempty(pol)) )
+  if( !(isvector(zer) | isempty(zer)) | !(isvector(pol) | isempty(pol)) )
     error("zer, pol must be vectors or empty");
   endif
 
-  if(!is_scalar(k))
+  if(!isscalar(k))
     error("zpout: argument k must be a scalar.")
   endif
 

--- a/scripts/control/util/__outlist__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/util/__outlist__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -66,7 +66,7 @@
 
   str_val = "";
   dstr = list(""," (discrete)");
-  if((m >= 1) && (is_list(name_list)))
+  if((m >= 1) && (islist(name_list)))
     for ii=1:m
       str_val = sprintf("%s%s%d: %s%s\n",str_val,tabchar, ilist(ii), ...
           nth(name_list,ii),nth(dstr,yd(ii)+1));

--- a/scripts/control/util/__zgpbal__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/util/__zgpbal__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,7 +43,7 @@
 
 function retsys = __zgpbal__ (Asys)
 
-  if( (nargin != 1) | (!is_struct(Asys)))
+  if( (nargin != 1) | (!isstruct(Asys)))
     usage("retsys = __zgpbal__ (Asys)");
   endif
 

--- a/scripts/control/util/sortcom.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/util/sortcom.m	Fri Aug 09 19:00:16 2002 +0000
@@ -40,7 +40,7 @@
 
   if( nargin < 1 | nargin > 2 )
      usage("yy = sortcom(xx[,opt]");
-  elseif( !(is_vector(xx) | isempty(xx) ))
+  elseif( !(isvector(xx) | isempty(xx) ))
     error("sortcom: first argument must be a vector");
   endif
 

--- a/scripts/control/util/zgscal.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/util/zgscal.m	Fri Aug 09 19:00:16 2002 +0000
@@ -53,7 +53,7 @@
   endfor
 
   [U,H,k1] = krylov(F,z,nmp,1e-12,1);
-  if(!is_square(H))
+  if(!issquare(H))
     if(columns(H) != k1)
       error("zgscal(tzero): k1=%d, columns(H)=%d",k1,columns(H));
     elseif(rows(H) != k1+1)

--- a/scripts/control/util/zgshsr.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/control/util/zgshsr.m	Fri Aug 09 19:00:16 2002 +0000
@@ -29,7 +29,7 @@
 
 function x = zgshsr (y)
 
-  if(!is_vector(y))
+  if(!isvector(y))
     error(sprintf("y(%dx%d) must be a vector",rows(y),columns(y)));
   endif
   x = vec(y);

--- a/scripts/finance/fv.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/fv.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,11 +43,11 @@
     usage ("fv (r, n, p, l, method)");
   endif
 
-  if (! (is_scalar (r) && (r > -1)))
+  if (! (isscalar (r) && (r > -1)))
     error ("fv: r must be a scalar > -1");
-  elseif (! (is_scalar (n) && (n > 0)))
+  elseif (! (isscalar (n) && (n > 0)))
     error ("fv: n must be a positive scalar");
-  elseif (! is_scalar (p))
+  elseif (! isscalar (p))
     error ("fv: p must be a scalar");
   endif
 
@@ -71,7 +71,7 @@
     if strcmp (m, "b")
       v = v * (1 + r);
     endif
-    if is_scalar (l)
+    if isscalar (l)
       v = v + fvl (r, n, l);
     else
       error ("fv: l must be a scalar");

--- a/scripts/finance/fvl.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/fvl.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,11 +36,11 @@
     usage ("fvl (r, n, l)");
   endif
 
-  if (! (is_scalar (r) && (r > -1)))
+  if (! (isscalar (r) && (r > -1)))
     error ("fvl: r has to be a scalar > -1");
-  elseif (! (is_scalar (n) && (n > 0)))
+  elseif (! (isscalar (n) && (n > 0)))
     error ("fvl: n has to be a positive scalar");
-  elseif (! is_scalar (l))
+  elseif (! isscalar (l))
     error ("fvl: l has to be a scalar");
   endif
 

--- a/scripts/finance/irr.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/irr.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,13 +37,13 @@
     usage ("irr (p, i)");
   endif
 
-  if (! (is_vector (p)))
+  if (! (isvector (p)))
     error ("irr: p must be a vector");
   else
     p_string = strcat ("[", sprintf ("%.15f, ", p), "]");
   endif
 
-  if (! is_scalar (i))
+  if (! isscalar (i))
     error ("irr: i must be a scalar");
   endif
 

--- a/scripts/finance/nper.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/nper.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,11 +43,11 @@
     usage ("nper (r, p, a, l, method)");
   endif
 
-  if (! (is_scalar (r) && (r > -1)))
+  if (! (isscalar (r) && (r > -1)))
     error ("nper: r must be a scalar > -1");
-  elseif (! is_scalar (p))
+  elseif (! isscalar (p))
     error ("nper: p must be a scalar");
-  elseif (! is_scalar (a))
+  elseif (! isscalar (a))
     error ("nper: a must be a scalar");
   endif
 

--- a/scripts/finance/npv.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/npv.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,7 +42,7 @@
     usage ("npv (r, p, i");
   endif
 
-  if (! (is_vector (p)))
+  if (! (isvector (p)))
     error ("npv: p has to be a vector");
   else
     n = length (p);
@@ -52,16 +52,16 @@
   if (any (any (r <= -1)))
     error ("npv: all interest rates must be > -1");
   endif
-  if (is_scalar (r))
+  if (isscalar (r))
     d = 1 ./ (1 + r) .^ (0 : n);
-  elseif (is_vector (r) && (length (r) == n))
+  elseif (isvector (r) && (length (r) == n))
     d = [1, (1 ./ cumprod (reshape (1 + r, 1, n)))];
   else
     error ("npv: r must be a scalar or a vector of the same length as p");
   endif
 
   if (nargin == 3)
-    if (! is_scalar (i))
+    if (! isscalar (i))
       error ("npv: I_0 must be a scalar");
     endif
   else

--- a/scripts/finance/pmt.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/pmt.m	Fri Aug 09 19:00:16 2002 +0000
@@ -40,11 +40,11 @@
     usage ("pmt (r, n, a, l, method)");
   endif
 
-  if (! (is_scalar (r) && r > -1))
+  if (! (isscalar (r) && r > -1))
     error ("pmt: rate must be a scalar > -1");
-  elseif (! (is_scalar (n) && n > 0))
+  elseif (! (isscalar (n) && n > 0))
     error ("pmt: n must be a positive scalar");
-  elseif (! (is_scalar (a) && a > 0))
+  elseif (! (isscalar (a) && a > 0))
     error ("pmt: a must be a positive scalar");
   endif
 

--- a/scripts/finance/pv.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/pv.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,11 +43,11 @@
     usage ("pv (r, n, p, l, method)");
   endif
 
-  if (! (is_scalar (r) && (r > -1)))
+  if (! (isscalar (r) && (r > -1)))
     error ("pv: r must be a scalar > -1");
-  elseif (! (is_scalar (n) && (n > 0)))
+  elseif (! (isscalar (n) && (n > 0)))
     error ("pv: n must be a positive scalar");
-  elseif (! is_scalar (p))
+  elseif (! isscalar (p))
     error ("pv: p must be a scalar");
   endif
 
@@ -71,7 +71,7 @@
     if (strcmp (m, "b"))
       v = v * (1 + r);
     endif
-    if (is_scalar (l))
+    if (isscalar (l))
       v = v + pvl (r, n, l);
     else
       error ("pv: l must be a scalar");

--- a/scripts/finance/pvl.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/pvl.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,11 +36,11 @@
     usage ("pvl (r, n, p)");
   endif
 
-  if (! (is_scalar (r) && (r > -1)))
+  if (! (isscalar (r) && (r > -1)))
     error ("pvl: r has to be a scalar > -1");
-  elseif (! (is_scalar (n) && (n > 0)))
+  elseif (! (isscalar (n) && (n > 0)))
     error ("pvl: n has to be a positive scalar");
-  elseif (! is_scalar (p))
+  elseif (! isscalar (p))
     error ("pvl: p has to be a scalar");
   endif
 

--- a/scripts/finance/rate.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/finance/rate.m	Fri Aug 09 19:00:16 2002 +0000
@@ -40,11 +40,11 @@
     usage ("rate (n, p, v, l, method)");
   endif
 
-  if (! (is_scalar (n) && (n > 0)))
+  if (! (isscalar (n) && (n > 0)))
     error ("rate: n must be a positive scalar");
-  elseif (! is_scalar (p))
+  elseif (! isscalar (p))
     error ("rate: p must be a scalar");
-  elseif (! is_scalar (v))
+  elseif (! isscalar (v))
     error ("rate: p must be a scalar");
   endif
 
@@ -64,7 +64,7 @@
     m = "e";
   endif
 
-  if (! is_scalar (l))
+  if (! isscalar (l))
     error ("rate: l must be a scalar");
   endif
 

--- a/scripts/general/cart2pol.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/cart2pol.m	Fri Aug 09 19:00:16 2002 +0000
@@ -40,9 +40,9 @@
     error ("cart2pol: number of output arguments must not be greater than number of input arguments");
   endif
 
-  if ((! (is_matrix (X) && is_matrix (Y)))
+  if ((! (ismatrix (X) && ismatrix (Y)))
       || (size (X) != size (Y))
-      || (nargin == 3 && (! (size (X) == size (Z) && is_matrix (Z)))))
+      || (nargin == 3 && (! (size (X) == size (Z) && ismatrix (Z)))))
     error ("cart2pol: arguments must be matrices of same size");
   endif
 

--- a/scripts/general/cart2sph.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/cart2sph.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,7 +36,7 @@
     usage ("[Theta, Phi, R] = cart2sph (X, Y, Z)")
   endif
 
-  if ((! (is_matrix (X) && is_matrix (Y) && is_matrix (Z)))
+  if ((! (ismatrix (X) && ismatrix (Y) && ismatrix (Z)))
       || size (X) != size (Y)
       || size (X) != size (Z))
     error ("cart2sph: arguments must be matrices of same size");

--- a/scripts/general/columns.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/columns.m	Fri Aug 09 19:00:16 2002 +0000
@@ -21,7 +21,7 @@
 ## @deftypefn {Function File} {} columns (@var{a})
 ## Return the number of columns of @var{a}.
 ## @end deftypefn
-## @seealso{size, rows, length, is_scalar, is_vector, and is_matrix}
+## @seealso{size, rows, length, isscalar, isvector, and ismatrix}
 
 ## Author: jwe
 

--- a/scripts/general/diff.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/diff.m	Fri Aug 09 19:00:16 2002 +0000
@@ -47,7 +47,7 @@
   if (nargin == 1)
     k = 1;
   elseif (nargin == 2)
-    if (! (is_scalar (k) && k == round (k) && k >= 0))
+    if (! (isscalar (k) && k == round (k) && k >= 0))
       error ("diff: k must be a nonnegative integer");
     elseif (k == 0)
       return;
@@ -58,7 +58,7 @@
 
   if (isstr (x))
     error ("diff: symbolic differentiation not (yet) supported");
-  elseif (is_vector (x))
+  elseif (isvector (x))
     n = length (x);
     if (n <= k)
       x = [];
@@ -67,7 +67,7 @@
         x = x (2 : (n - i + 1)) - x (1 : (n - i));
       endfor
     endif
-  elseif (is_matrix (x))
+  elseif (ismatrix (x))
     n = rows (x);
     if (n <= k)
       x = [];

--- a/scripts/general/is_duplicate_entry.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/is_duplicate_entry.m	Fri Aug 09 19:00:16 2002 +0000
@@ -28,7 +28,7 @@
 function retval = is_duplicate_entry (x)
 
   if (nargin == 1)
-    if (is_matrix (x))
+    if (ismatrix (x))
       [m, n] = size (x);
       lx = m*n;
       lx1 = lx-1;

--- a/scripts/general/mod.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/mod.m	Fri Aug 09 19:00:16 2002 +0000
@@ -44,7 +44,7 @@
     usage ("r = mod (x, y)");
   endif
 
-  if (any (size (x) != size (y)) && ! (is_scalar (x) || is_scalar (y)))
+  if (any (size (x) != size (y)) && ! (isscalar (x) || isscalar (y)))
     error ("mod: argument sizes must agree");
   endif
 
@@ -56,12 +56,12 @@
     if (all (nz(:)))
       ## No elements of y are zero.
       r = x - y .* floor (x ./ y);
-    elseif (is_scalar (y))
+    elseif (isscalar (y))
       ## y must be zero.
       r = x;
     else
       ## Some elements of y are zero.
-      if (is_scalar (x))
+      if (isscalar (x))
 	r = x * ones (size (y));
       else
 	r = x;

--- a/scripts/general/nextpow2.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/nextpow2.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,7 +43,7 @@
     usage ("nextpow2 (x)");
   endif
 
-  if (! (is_scalar (x) || is_vector (x)))
+  if (! (isscalar (x) || isvector (x)))
     error ("nextpow2: x must be a scalar or a vector");
   endif
 

--- a/scripts/general/pol2cart.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/pol2cart.m	Fri Aug 09 19:00:16 2002 +0000
@@ -40,9 +40,9 @@
     error ("pol2cart: number of output arguments must not be greater than number of input arguments");
   endif
 
-  if ((! (is_matrix (Theta) && is_matrix (R)))
+  if ((! (ismatrix (Theta) && ismatrix (R)))
       || (size (Theta) != size (R))
-      || (nargin == 3 && (! (size (R) == size (Z) && is_matrix (Z)))))
+      || (nargin == 3 && (! (size (R) == size (Z) && ismatrix (Z)))))
     error ("pol2cart: arguments must be matrices of same size");
   endif
 

--- a/scripts/general/postpad.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/postpad.m	Fri Aug 09 19:00:16 2002 +0000
@@ -33,9 +33,9 @@
     usage ("postpad (x, l) or postpad (x, l, c)");
   endif
 
-  if (! is_matrix (x))
+  if (! ismatrix (x))
     error ("first argument must be a vector or matrix");
-  elseif (! is_scalar (l))
+  elseif (! isscalar (l))
     error ("second argument must be a scaler");
   endif
 

--- a/scripts/general/prepad.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/prepad.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,9 +42,9 @@
     usage ("prepad (x, l) or prepad (x, l, c)");
   endif
 
-  if (! is_matrix (x))
+  if (! ismatrix (x))
     error ("first argument must be a vector or matrix");
-  elseif (! is_scalar (l))
+  elseif (! isscalar (l))
     error ("second argument must be a scaler");
   endif
 

--- a/scripts/general/randperm.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/randperm.m	Fri Aug 09 19:00:16 2002 +0000
@@ -28,7 +28,7 @@
 
 function retval = randperm (n)
 
-  if (nargin == 1 && is_scalar (n) && floor (n) == n)
+  if (nargin == 1 && isscalar (n) && floor (n) == n)
     if (n > 0)
       [junk, retval] = sort (rand (1, n));
     else

--- a/scripts/general/rem.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/rem.m	Fri Aug 09 19:00:16 2002 +0000
@@ -39,7 +39,7 @@
     usage ("rem (x, y)");
   endif
 
-  if (any (size (x) != size (y)) && ! (is_scalar (x) || is_scalar (y)))
+  if (any (size (x) != size (y)) && ! (isscalar (x) || isscalar (y)))
     error ("rem: argument sizes must agree");
   endif
 

--- a/scripts/general/repmat.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/repmat.m	Fri Aug 09 19:00:16 2002 +0000
@@ -35,9 +35,9 @@
   endif
 
   if (nargin == 2)
-    if (is_scalar (m))
+    if (isscalar (m))
       n = m;
-    elseif (is_vector (m) && length (m) == 2)
+    elseif (isvector (m) && length (m) == 2)
       n = m(2);
       m = m(1);
     else

--- a/scripts/general/rows.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/rows.m	Fri Aug 09 19:00:16 2002 +0000
@@ -21,7 +21,7 @@
 ## @deftypefn {Function File} {} rows (@var{a})
 ## Return the number of rows of @var{a}.
 ## @end deftypefn
-## @seealso{size, columns, length, is_scalar, is_vector, and is_matrix}
+## @seealso{size, columns, length, isscalar, isvector, and ismatrix}
 
 ## Author: jwe
 

--- a/scripts/general/shift.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/shift.m	Fri Aug 09 19:00:16 2002 +0000
@@ -45,7 +45,7 @@
     nc = 0;
   endif
 
-  if (! (is_scalar (b) && b == round (b)))
+  if (! (isscalar (b) && b == round (b)))
     error ("shift: b must be an integer");
   endif
 

--- a/scripts/general/sph2cart.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/sph2cart.m	Fri Aug 09 19:00:16 2002 +0000
@@ -36,7 +36,7 @@
     usage ("[X, Y, Z] = sph2cart (Theta, Phi, R)");
   endif
 
-  if ((! (is_matrix (Theta) && is_matrix (Phi) && is_matrix (R)))
+  if ((! (ismatrix (Theta) && ismatrix (Phi) && ismatrix (R)))
       || size (Theta) != size (Phi)
       || size (Theta) != size (R))
     error ("sph2cart: arguments must be matrices of same size");

--- a/scripts/general/strerror.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/general/strerror.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,7 +37,7 @@
     error ("strerror: first argument must be a string");
   endif
 
-  if (! is_scalar (err))
+  if (! isscalar (err))
     error ("strerror: second argument must be a scalar");
   endif
 

--- a/scripts/image/hsv2rgb.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/image/hsv2rgb.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,7 +37,7 @@
     usage ("rgb_map = hsv2rgb (hsv_map)");
   endif
 
-  if (! is_matrix (hsv_map) || columns (hsv_map) != 3)
+  if (! ismatrix (hsv_map) || columns (hsv_map) != 3)
     error ("hsv2rgb: argument must be a matrix of size nx3");
   endif
 

--- a/scripts/image/ocean.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/image/ocean.m	Fri Aug 09 19:00:16 2002 +0000
@@ -32,7 +32,7 @@
   if (nargin == 0)
     number = 64;
   elseif (nargin == 1)
-    if (! is_scalar (number))
+    if (! isscalar (number))
       error ("ocean: argument must be a scalar");
     endif
   else

--- a/scripts/image/rgb2hsv.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/image/rgb2hsv.m	Fri Aug 09 19:00:16 2002 +0000
@@ -39,7 +39,7 @@
     usage ("hsv_map = rgb2hsv (rgb_map)");
   endif
 
-  if (! is_matrix (rgb) || columns (rgb) != 3)
+  if (! ismatrix (rgb) || columns (rgb) != 3)
     error ("rgb2hsv: argument must be a matrix of size n x 3");
   endif
 

--- a/scripts/image/saveimage.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/image/saveimage.m	Fri Aug 09 19:00:16 2002 +0000
@@ -100,7 +100,7 @@
     error ("unsupported image format specification");
   endif
 
-  if (! is_matrix (img))
+  if (! ismatrix (img))
     warning ("image variable is not a matrix");
   endif
 

--- a/scripts/linear-algebra/commutation_matrix.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/linear-algebra/commutation_matrix.m	Fri Aug 09 19:00:16 2002 +0000
@@ -89,12 +89,12 @@
   if (nargin < 1 || nargin > 2)
     usage ("commutation_matrix (m, n)");
   else
-    if (! (is_scalar (m) && m == round (m) && m > 0))
+    if (! (isscalar (m) && m == round (m) && m > 0))
       error ("commutation_matrix: m must be a positive integer");
     endif
     if (nargin == 1)
       n = m;
-    elseif (! (is_scalar (n) && n == round (n) && n > 0))
+    elseif (! (isscalar (n) && n == round (n) && n > 0))
       error ("commutation_matrix: n must be a positive integer");
     endif
   endif

--- a/scripts/linear-algebra/dot.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/linear-algebra/dot.m	Fri Aug 09 19:00:16 2002 +0000
@@ -30,7 +30,7 @@
     usage ("dot (x, y)");
   endif
 
-  if (is_vector (x) && is_vector (y) && length (x) == length (y))
+  if (isvector (x) && isvector (y) && length (x) == length (y))
     [x_nr, x_nc] = size (x);
     [y_nr, y_nc] = size (y);
     if (x_nr == 1)

--- a/scripts/linear-algebra/duplication_matrix.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/linear-algebra/duplication_matrix.m	Fri Aug 09 19:00:16 2002 +0000
@@ -79,7 +79,7 @@
     usage ("duplication_matrix (n)");
   endif
 
-  if (! (is_scalar (n) && n == round (n) && n > 0))
+  if (! (isscalar (n) && n == round (n) && n > 0))
     error ("duplication_matrix: n must be a positive integer");
   endif
 

--- a/scripts/linear-algebra/housh.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/linear-algebra/housh.m	Fri Aug 09 19:00:16 2002 +0000
@@ -35,9 +35,9 @@
 function [housv, beta, zer] = housh (x, j, z)
 
   ## check for valid inputs
-  if (!is_vector (x) && ! is_scalar (x))
+  if (!isvector (x) && ! isscalar (x))
     error ("housh: first input must be a vector")
-  elseif (! is_scalar(j))
+  elseif (! isscalar(j))
     error ("housh: second argment must be an integer scalar")
   else
     housv = x;

--- a/scripts/linear-algebra/krylov.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/linear-algebra/krylov.m	Fri Aug 09 19:00:16 2002 +0000
@@ -61,7 +61,7 @@
     eps1 = defeps;
   endif
 
-  na = is_square (A);
+  na = issquare (A);
   if (! na)
     error ("A(%d x %d) must be square", rows (A), columns (A));
   endif
@@ -72,7 +72,7 @@
 	  na, na, m, kb)
   endif
 
-  if (! is_scalar (k))
+  if (! isscalar (k))
     error ("krylov: third argument must be a scalar integer");
   endif
 

--- a/scripts/linear-algebra/vech.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/linear-algebra/vech.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,7 +37,7 @@
     usage ("vech (x)");
   endif
 
-  if (! is_square (x))
+  if (! issquare (x))
     error ("vech: x must be square");
   endif
 

--- a/scripts/miscellaneous/etime.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/miscellaneous/etime.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,7 +42,7 @@
     usage ("etime (t1, t0)");
   endif
 
-  if (is_vector (t1) && length (t1) == 6 && is_vector (t0) && length (t0) == 6)
+  if (isvector (t1) && length (t1) == 6 && isvector (t0) && length (t0) == 6)
 
     if (t1 (1) != t0 (1))
       error ("etime: can't handle timings over year boundaries yet");

--- a/scripts/miscellaneous/list_primes.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/miscellaneous/list_primes.m	Fri Aug 09 19:00:16 2002 +0000
@@ -38,7 +38,7 @@
 function retval = list_primes (n)
 
   if (nargin > 0)
-    if (! is_scalar (n))
+    if (! isscalar (n))
       error ("list_primes: argument must be a scalar");
     endif
   endif

--- a/scripts/miscellaneous/menu.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/miscellaneous/menu.m	Fri Aug 09 19:00:16 2002 +0000
@@ -64,7 +64,7 @@
       printf ("\n");
       s = input ("pick a number, any number: ", "s");
       eval (sprintf ("num = %s;", s), "num = [];");
-      if (! is_scalar (num) || num < 1 || num > nopt)
+      if (! isscalar (num) || num < 1 || num > nopt)
         printf ("\nerror: input invalid or out of range\n\n");
       else
         break;

--- a/scripts/miscellaneous/xor.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/miscellaneous/xor.m	Fri Aug 09 19:00:16 2002 +0000
@@ -32,7 +32,7 @@
 function z = xor (x, y)
 
   if (nargin == 2)
-    if (is_scalar (x) || is_scalar (y) || size (x) == size (y))
+    if (isscalar (x) || isscalar (y) || size (x) == size (y))
       z = logical ((x | y) - (x & y));
     else
       error ("xor: x and y must be of common size or scalars");

--- a/scripts/plot/__errcomm__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/__errcomm__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -46,9 +46,9 @@
     while (nargin)
       a = varargin{k++};
       nargin--;
-      if (is_vector (a))
+      if (isvector (a))
         a = a(:);
-      elseif (is_matrix (a))
+      elseif (ismatrix (a))
         ;
       else
         usage ("%s (...)", caller);
@@ -67,9 +67,9 @@
 	  endfor
 	  eval (sprintf ("%s, fmt);", cmd));
 	  break;
-	elseif (is_vector (a))
+	elseif (isvector (a))
 	  a = a(:);
-	elseif (is_matrix (a))
+	elseif (ismatrix (a))
 	  ;
 	else
 	  error ("wrong argument types");

--- a/scripts/plot/__plr2__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/__plr2__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -37,14 +37,14 @@
     rho = real (rho);
   endif
 
-  if (is_scalar (theta))
-    if (is_scalar (rho))
+  if (isscalar (theta))
+    if (isscalar (rho))
       x = rho * cos (theta);
       y = rho * sin (theta);
       __plt2ss__ (x, y, fmt);
     endif
-  elseif (is_vector (theta))
-    if (is_vector (rho))
+  elseif (isvector (theta))
+    if (isvector (rho))
       if (length (theta) != length (rho))
         error ("polar: vector lengths must match");
       endif
@@ -57,7 +57,7 @@
       x = rho .* cos (theta);
       y = rho .* sin (theta);
       __plt2vv__ (x, y, fmt);
-    elseif (is_matrix (rho))
+    elseif (ismatrix (rho))
       [t_nr, t_nc] = size (theta);
       if (t_nr == 1)
         theta = theta';
@@ -79,8 +79,8 @@
       y = diag (sin (theta)) * rho;
       __plt2vm__ (x, y, fmt);
     endif
-  elseif (is_matrix (theta))
-    if (is_vector (rho))
+  elseif (ismatrix (theta))
+    if (isvector (rho))
       [r_nr, r_nc] = size (rho);
       if (r_nr == 1)
         rho = rho';
@@ -102,7 +102,7 @@
       x = diag_r * cos (theta);
       y = diag_r * sin (theta);
       __plt2mv__ (x, y, fmt);
-    elseif (is_matrix (rho))
+    elseif (ismatrix (rho))
       if (size (rho) != size (theta))
         error ("polar: matrix dimensions must match");
       endif

--- a/scripts/plot/__plr__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/__plr__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -50,14 +50,14 @@
     if (any (imag (rho)))
       rho = real (rho);
     endif
-    if (is_scalar (theta))
-      if (is_scalar (rho))
+    if (isscalar (theta))
+      if (isscalar (rho))
         x = rho * cos (theta);
         y = rho * sin (theta);
         __plt2ss__ (x, y, fmt);
       endif
-    elseif (is_vector (theta))
-      if (is_vector (rho))
+    elseif (isvector (theta))
+      if (isvector (rho))
         if (length (theta) != length (rho))
           error ("polar: vector lengths must match");
         endif
@@ -70,7 +70,7 @@
         x = rho .* cos (theta);
         y = rho .* sin (theta);
         __plt2vv__ (x, y, fmt);
-      elseif (is_matrix (rho))
+      elseif (ismatrix (rho))
         [t_nr, t_nc] = size (theta);
         if (t_nr == 1)
           theta = theta.';
@@ -92,8 +92,8 @@
         y = diag (sin (theta)) * rho;
         __plt2vm__ (x, y, fmt);
       endif
-    elseif (is_matrix (theta))
-      if (is_vector (rho))
+    elseif (ismatrix (theta))
+      if (isvector (rho))
         [r_nr, r_nc] = size (rho);
         if (r_nr == 1)
           rho = rho.';
@@ -115,7 +115,7 @@
         x = diag_r * cos (theta);
         y = diag_r * sin (theta);
         __plt2mv__ (x, y, fmt);
-      elseif (is_matrix (rho))
+      elseif (ismatrix (rho))
         if (size (rho) != size (theta))
           error ("polar: matrix dimensions must match");
         endif

--- a/scripts/plot/__plt2__.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/__plt2__.m	Fri Aug 09 19:00:16 2002 +0000
@@ -43,20 +43,20 @@
   if (any (any (imag (x2))))
     x2 = real (x2);
   endif
-  if (is_scalar (x1))
-    if (is_scalar (x2))
+  if (isscalar (x1))
+    if (isscalar (x2))
       __plt2ss__ (x1, x2, fmt);
     endif
-  elseif (is_vector (x1))
-    if (is_vector (x2))
+  elseif (isvector (x1))
+    if (isvector (x2))
       __plt2vv__ (x1, x2, fmt);
-    elseif (is_matrix (x2))
+    elseif (ismatrix (x2))
       __plt2vm__ (x1, x2, fmt);
     endif
-  elseif (is_matrix (x1))
-    if (is_vector (x2))
+  elseif (ismatrix (x1))
+    if (isvector (x2))
       __plt2mv__ (x1, x2, fmt);
-    elseif (is_matrix (x2))
+    elseif (ismatrix (x2))
       __plt2mm__ (x1, x2, fmt);
     endif
   endif

--- a/scripts/plot/axis.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/axis.m	Fri Aug 09 19:00:16 2002 +0000
@@ -232,7 +232,7 @@
       warning (["unknown axis option '", ax, "'"]);
     endif
 
-  elseif (is_vector (ax))
+  elseif (isvector (ax))
 
     len = length (ax);
 

--- a/scripts/plot/bar.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/bar.m	Fri Aug 09 19:00:16 2002 +0000
@@ -50,7 +50,7 @@
 function [xb, yb] = bar (x, y)
 
   if (nargin == 1)
-    if (is_vector (x))
+    if (isvector (x))
       len = 3 * length (x) + 1;
       tmp_xb = tmp_yb = zeros (len, 1);
       tmp_xb(1) = 0.5;
@@ -69,7 +69,7 @@
       error ("bar: argument must be a vector");
     endif
   elseif (nargin == 2)
-    if (is_vector (x) && is_vector (y))
+    if (isvector (x) && isvector (y))
       xlen = length (x);
       ylen = length (y);
       if (xlen == ylen)

--- a/scripts/plot/contour.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/contour.m	Fri Aug 09 19:00:16 2002 +0000
@@ -42,13 +42,13 @@
     else
       n = y; 
     endif
-    if (is_matrix (z))
+    if (ismatrix (z))
       gset nosurface;
       gset contour;
       gset cntrparam bspline;
-      if (is_scalar (n))
+      if (isscalar (n))
         command = sprintf ("gset cntrparam levels %d", n);
-      elseif (is_vector (n))
+      elseif (isvector (n))
         tmp = sprintf ("%f", n(1));
         for i = 2:length (n)
           tmp = sprintf ("%s, %f", tmp, n(i));
@@ -66,7 +66,7 @@
     if (nargin == 3)
       n = 10;
     endif
-    if (is_vector (x) && is_vector (y) && is_matrix (z))
+    if (isvector (x) && isvector (y) && ismatrix (z))
       xlen = length (x);
       ylen = length (y);
       if (xlen == rows (z) && ylen == columns (z))
@@ -85,9 +85,9 @@
         gset nosurface;
         gset contour;
         gset cntrparam bspline;
-        if (is_scalar (n))
+        if (isscalar (n))
           command = sprintf ("gset cntrparam levels %d", n);
-        elseif (is_vector (n))
+        elseif (isvector (n))
           tmp = sprintf ("%f", n(1));
           for i = 2:length (n)
             tmp = sprintf ("%s, %f", tmp, n(i));

--- a/scripts/plot/hist.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/hist.m	Fri Aug 09 19:00:16 2002 +0000
@@ -49,7 +49,7 @@
     usage ("[nn, xx] = hist (y, x, norm)");
   endif
 
-  if (is_vector (y))
+  if (isvector (y))
     max_val = max (y);
     min_val = min (y);
   else
@@ -63,7 +63,7 @@
     cutoff = x + delta;
   else
     ## nargin is either 2 or 3
-    if (is_scalar (x))
+    if (isscalar (x))
       n = x;
       if (n <= 0)
         error ("hist: number of bins must be positive");
@@ -71,7 +71,7 @@
       delta = (max_val - min_val) / n / 2;
       x = linspace (min_val+delta, max_val-delta, n);
       cutoff = x + delta;
-    elseif (is_vector (x))
+    elseif (isvector (x))
       tmp = sort (x);
       if (any (tmp != x))
         warning ("hist: bin values not sorted on input");

--- a/scripts/plot/mesh.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/mesh.m	Fri Aug 09 19:00:16 2002 +0000
@@ -39,7 +39,7 @@
 
   if (nargin == 1)
     z = x;
-    if (is_matrix (z))
+    if (ismatrix (z))
       gset hidden3d;
       gset data style lines;
       gset surface;
@@ -52,7 +52,7 @@
       error ("mesh: argument must be a matrix");
     endif
   elseif (nargin == 3)
-    if (is_vector (x) && is_vector (y) && is_matrix (z))
+    if (isvector (x) && isvector (y) && ismatrix (z))
       xlen = length (x);
       ylen = length (y);
       if (xlen == columns (z) && ylen == rows (z))
@@ -82,7 +82,7 @@
         msg = sprintf ("%s\ncolumns (z) must be the same as length (x)", msg);
         error (msg);
       endif
-    elseif (is_matrix (x) && is_matrix (y) && is_matrix (z))
+    elseif (ismatrix (x) && ismatrix (y) && ismatrix (z))
       xlen = columns (z);
       ylen = rows (z);
       if (xlen == columns (x) && xlen == columns (y) &&

--- a/scripts/plot/meshdom.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/meshdom.m	Fri Aug 09 19:00:16 2002 +0000
@@ -31,7 +31,7 @@
 function [xx, yy] = meshdom (x, y)
 
   if (nargin == 2)
-    if (is_vector (x) && is_vector (y))
+    if (isvector (x) && isvector (y))
       xx = ones (length (y), 1) * x(:).';
       yy = flipud (y(:)) * ones (1, length (x));
     else

--- a/scripts/plot/meshgrid.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/meshgrid.m	Fri Aug 09 19:00:16 2002 +0000
@@ -35,7 +35,7 @@
     y = x;
   endif
   if (nargin > 0 && nargin < 3)
-    if (is_vector (x) && is_vector (y))
+    if (isvector (x) && isvector (y))
       xx = ones (length (y), 1) * x(:).';
       yy = y(:) * ones (1, length (x));
     else

--- a/scripts/plot/multiplot.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/multiplot.m	Fri Aug 09 19:00:16 2002 +0000
@@ -51,7 +51,7 @@
     usage ("multiplot (xn, yn)");
   endif
 
-  if (! (is_scalar (xn) && is_scalar (yn)))
+  if (! (isscalar (xn) && isscalar (yn)))
     error ("multiplot: xn and yn have to be scalars");
   endif
 

--- a/scripts/plot/stairs.m	Fri Aug 09 07:38:55 2002 +0000
+++ b/scripts/plot/stairs.m	Fri Aug 09 19:00:16 2002 +0000
@@ -51,7 +51,7 @@
 
 
   if (nargin == 1)
-    if (is_vector (x))
+    if (isvector (x))
       len = 2 * length (x);
       tmp_xs = tmp_ys = zeros (len, 1);
       k = 0;
@@ -65,7 +65,7 @@
       error ("stairs: argument must be a vector");
     endif
   elseif (nargin == 2)
-    if (is_vector (x) && is_vector (y))
+    if (isvector (x) && isvector (y))
       xlen = length (x);
       ylen = length (y);
       if (xlen == ylen)