From: soren h. <ha...@us...> - 2006-11-29 16:53:01
|
Update of /cvsroot/octave/octave-forge/main/geometry/inst In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv2637 Modified Files: inpolygon.m Log Message: Small bugfix Index: inpolygon.m =================================================================== RCS file: /cvsroot/octave/octave-forge/main/geometry/inst/inpolygon.m,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- inpolygon.m 29 Nov 2006 16:44:44 -0000 1.5 +++ inpolygon.m 29 Nov 2006 16:52:53 -0000 1.6 @@ -27,9 +27,9 @@ function [IN, ON] = inpolygon (X, Y, xv, yv) - if ( !(isreal(X) && isreal(Y) && ismatrix(Y) && ismatrix(Y) && size_equal(X, Y)) ) + if ( !(isreal(X) && isreal(Y) && ismatrix(Y) && ismatrix(Y) && size_equal(X,Y)) ) error( "inpolygon: first two arguments must be real matrices of same size"); - elseif ( !(isreal(xv) && isreal(yv) && isvector(xv) && isvector(yv) && size_equal(X, Y)) ) + elseif ( !(isreal(xv) && isreal(yv) && isvector(xv) && isvector(yv) && size_equal(xv,yv)) ) error( "inpolygon: last two arguments must be real vectors of same size"); endif |