# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1206020210 14400
# Node ID c1702f963a5e7b8dc3f95a99560c47fc87e0fa80
# Parent  4f903c303c3c1809ad67d8cd4170f3192c3cd74b
error check for subspace.m

diff -r 4f903c303c3c -r c1702f963a5e scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Mar 19 21:22:20 2008 -0400
+++ b/scripts/ChangeLog	Thu Mar 20 09:36:50 2008 -0400
@@ -1,3 +1,8 @@
+2008-03-20  Jaroslav Hajek  <highegg@localhost.localdomain>
+
+	* linear-algebra/subspace.m: Check number of arguments and number
+	of dimensions of arguments.
+
 2008-03-19  Jaroslav Hajek  <highegg@gmail.com>
 
 	* linear-algebra/subspace.m: New function.
diff -r 4f903c303c3c -r c1702f963a5e 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 09:36:50 2008 -0400
@@ -34,6 +34,12 @@
 
 function ang = subspace (a, b)
 
+  if (nargin != 2)
+    print_usage ();
+  elseif (ndims (a) != 2 || ndims (b) != 2)
+    error ("subspace: expecting A and B to be 2-dimensional arrays");
+  endif
+
   a = orth (a);
   b = orth (b);
   c = a'*b;