Mercurial > octave-nkf

changeset 57:8d4431f4a00a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-11 21:53:44 by jwe]
author jwe
date Wed, 11 Aug 1993 21:53:44 +0000
parents 3cccff82b7a6
children e96cf7e43750
files scripts/control/lyap.m
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/control/lyap.m	Wed Aug 11 21:49:27 1993 +0000
+++ b/scripts/control/lyap.m	Wed Aug 11 21:53:44 1993 +0000
@@ -23,13 +23,11 @@
 # whichever is appropriate.
 
   if (nargin != 3 && nargin != 2)
-    error ("lyap: illegal number of arguments");
-    return;
+    error ("usage: lyap (a, b {,c})");
   endif
 
   if ((n = is_square(a)) == 0)
     error ("lyap: a is not square");
-    return;
   endif
 
   if (nargin == 2)
@@ -53,7 +51,6 @@
 
       if (m != n)
 	error ("lyap: a, b not conformably dimensioned");
-	return;
       endif
     endif
 
@@ -69,7 +66,6 @@
 
     if ((m = is_square (b)) == 0)
       error ("lyap: b must be square in a sylvester equation");
-      return;
     endif
 
     [n1,m1] = size(c);