# HG changeset patch
# User Jaroslav Hajek <address@hidden>
# Date 1205994515 -3600
# Node ID 36ff0b032f877b58ea4afaf60c9196fe60d56cbc
# Parent  4f903c303c3c1809ad67d8cd4170f3192c3cd74b
error check for subspace.m

diff -r 4f903c303c3c -r 36ff0b032f87 scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Mar 19 21:22:20 2008 -0400
+++ b/scripts/ChangeLog	Thu Mar 20 07:28:35 2008 +0100
@@ -1,3 +1,7 @@ 2008-03-19  Jaroslav Hajek  <address@hidden
+2008-03-20  Jaroslav Hajek  <address@hidden>
+
+	* linear-algebra/subspace.m: Add error tests.
+
 2008-03-19  Jaroslav Hajek  <address@hidden>
 
 	* linear-algebra/subspace.m: New function.
diff -r 4f903c303c3c -r 36ff0b032f87 scripts/linear-algebra/subspace.m
--- a/scripts/linear-algebra/subspace.m	Wed Mar 19 21:22:20 2008 -0400
+++ b/scripts/linear-algebra/subspace.m	Thu Mar 20 07:28:35 2008 +0100
@@ -34,6 +34,12 @@
 
 function ang = subspace (a, b)
 
+  if (nargin != 2)
+    print_usage ();
+  elseif (! ismatrix (a) || ! ismatrix (b))
+    error ("a, b should be matrices");
+  endif
+
   a = orth (a);
   b = orth (b);
   c = a'*b;