Mercurial > octave-nkf

comparison scripts/geometry/rectint.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents eb63fbe60fab
children 1740012184f9
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
32 ## @end deftypefn 32 ## @end deftypefn
33 33
34 ## Author: Bill Denney <bill@denney.ws> 34 ## Author: Bill Denney <bill@denney.ws>
35 35
36 function area = rectint (a, b) 36 function area = rectint (a, b)
37 37
38 if (nargin != 2) 38 if (nargin != 2)
39 print_usage (); 39 print_usage ();
40 elseif (ndims (a) != 2 || ndims (b) != 2) 40 elseif (ndims (a) != 2 || ndims (b) != 2)
41 error ("rectint: expecting arguments to be 2-d arrays"); 41 error ("rectint: expecting arguments to be 2-d arrays");
42 elseif (columns (a) != 4) 42 elseif (columns (a) != 4)