octave: scripts/geometry/inpolygon.m annotate

annotate scripts/geometry/inpolygon.m @ 31253:a40c0b7aa376

maint: changes to follow Octave coding conventions. * NEWS.8.md: Wrap lines to 72 chars. * LSODE-opts.in: Use two spaces after sentence ending period. * LSODE.cc: Use minimum of two spaces between code and start of comment. * MemoizedFunction.m: Change copyright date to 2022 since this is the year it was accepted into core. Don't wrap error() lines to 80 chars. Use newlines to improve readability of switch statements. Use minimum of two spaces between code and start of comment. * del2.m, integral.m, interp1.m, interp2.m, griddata.m, inpolygon.m, waitbar.m, cubehelix.m, ind2x.m, importdata.m, textread.m, logm.m, lighting.m, shading.m, xticklabels.m, yticklabels.m, zticklabels.m, colorbar.m, meshc.m, print.m, __gnuplot_draw_axes__.m, struct2hdl.m, ppval.m, ismember.m, iqr.m: Use a space between comment character '#' and start of comment. Use hyphen for adjectives describing dimensions such as "1-D". * vectorize.m, ode23s.m: Use is_function_handle() instead of "isa (x, "function_handle")" for clarity and performance. * clearAllMemoizedCaches.m: Change copyright date to 2022 since this is the year it was accepted into core. Remove input validation which is done by interpreter. Use two newlines between end of code and start of BIST tests. * memoize.m: Change copyright date to 2022 since this is the year it was accepted into core. Re-wrap documentation to 80 chars. Use is_function_handle() instead of "isa (x, "function_handle")" for clarity and performance. Use two newlines between end of code and start of BIST tests. Use semicolon for assert statements within %!test block. Re-write BIST tests for input validation. * __memoize__.m: Change copyright date to 2022 since this is the year it was accepted into core. Use spaces in for statements to improve readability. * unique.m: Add FIXME note to commented BIST test * dec2bin.m: Remove stray newline at end of file. * triplequad.m: Reduce doubly-commented BIST syntax using "#%!#" to "#%!". * delaunayn.m: Use input variable names in error() statements. Use minimum of two spaces between code and start of comment. Use hyphen for describing dimensions. Use two newlines between end of code and start of BIST tests. Update BIST tests to pass.

author	Rik <rik@octave.org>
date	Mon, 03 Oct 2022 18:06:55 -0700
parents	796f54d4ddbf
children	597f3ee61a48

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ########################################################################
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 ##
30564 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 29359 diff changeset	3 ## Copyright (C) 2006-2022 The Octave Project Developers
27918 b442ec6dda5c use centralized file for copyright info for individual contributors John W. Eaton <jwe@octave.org> parents: 26376 diff changeset	4 ##
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 ## or <https://octave.org/copyright/>.
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	7 ##
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	8 ## This file is part of Octave.
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	9 ##
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	10 ## Octave is free software: you can redistribute it and/or modify it
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	11 ## under the terms of the GNU General Public License as published by
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	12 ## the Free Software Foundation, either version 3 of the License, or
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22173 diff changeset	13 ## (at your option) any later version.
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	14 ##
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	15 ## Octave is distributed in the hope that it will be useful, but
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22173 diff changeset	17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22173 diff changeset	18 ## GNU General Public License for more details.
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	19 ##
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	20 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6847 diff changeset	21 ## along with Octave; see the file COPYING. If not, see
24534 194eb4bd202b maint: Update punctuation for GPL v3 license text. Rik <rik@octave.org> parents: 23220 diff changeset	22 ## <https://www.gnu.org/licenses/>.
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 ##
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ########################################################################
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	25
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	26 ## -- texinfo --
20852 516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20181 diff changeset	27 ## @deftypefn {} {@var{in} =} inpolygon (@var{x}, @var{y}, @var{xv}, @var{yv})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files. Rik <rik@octave.org> parents: 20181 diff changeset	28 ## @deftypefnx {} {[@var{in}, @var{on}] =} inpolygon (@var{x}, @var{y}, @var{xv}, @var{yv})
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	29 ##
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	30 ## For a polygon defined by vertex points @code{(@var{xv}, @var{yv})}, return
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	31 ## true if the points @code{(@var{x}, @var{y})} are inside (or on the boundary)
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	32 ## of the polygon; Otherwise, return false.
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	33 ##
20158 7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20133 diff changeset	34 ## The input variables @var{x} and @var{y}, must have the same dimension.
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20133 diff changeset	35 ##
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20133 diff changeset	36 ## The optional output @var{on} returns true if the points are exactly on the
7503499a252b doc: Update docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 20133 diff changeset	37 ## polygon edge, and false otherwise.
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	38 ## @seealso{delaunay}
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	39 ## @end deftypefn
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	40
27984 b09432b20a84 maint: Remove special cases of old version control keywords in code base. Rik <rik@octave.org> parents: 27980 diff changeset	41 ## Algorithm: The method for determining if a point is in a polygon is based on
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	42 ## the algorithm shown on
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	43 ## http://local.wasp.uwa.edu.au/~pbourke/geometry/insidepoly/
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	44 ## and is credited to Randolph Franklin.
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	45
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	46 function [in, on] = inpolygon (x, y, xv, yv)
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	47
7125 f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	48 if (nargin != 4)
f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	49 print_usage ();
f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	50 endif
f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	51
21222 732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	52 if (! (isreal (x) && isreal (y) && isnumeric (x) && isnumeric (y)
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	53 && size_equal (x, y)))
21222 732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	54 error ("inpolygon: X and Y must be real arrays of the same size");
7125 f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	55 elseif (! (isreal (xv) && isreal (yv) && isvector (xv) && isvector (yv)
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9051 diff changeset	56 && size_equal (xv, yv)))
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	57 error ("inpolygon: XV and YV must be real vectors of the same size");
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	58 endif
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	59
7125 f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	60 npol = length (xv);
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	61
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	62 in = on = false (size (x));
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	63
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	64 j = npol;
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	65 for i = 1 : npol
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	66 delta_xv = xv(j) - xv(i);
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	67 delta_yv = yv(j) - yv(i);
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	68 ## distance = [distance from (x,y) to edge] * length(edge)
c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	69 distance = delta_xv .* (y - yv(i)) - (x - xv(i)) .* delta_yv;
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	70
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	71 ## is y between the y-values of edge i,j AND (x,y) on the left of the edge?
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	72 idx1 = (((yv(i) <= y & y < yv(j)) \| (yv(j) <= y & y < yv(i)))
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9051 diff changeset	73 & 0 < distance.*delta_yv);
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	74 in(idx1) = ! in(idx1);
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	75
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 10549 diff changeset	76 ## Check if (x,y) are actually on the boundary of the polygon.
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	77 idx2 = (((yv(i) <= y & y <= yv(j)) \| (yv(j) <= y & y <= yv(i)))
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	78 & ((xv(i) <= x & x <= xv(j)) \| (xv(j) <= x & x <= xv(i)))
20955 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20852 diff changeset	79 & (0 == distance \| ! delta_xv));
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	80 on(idx2) = true;
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	81
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	82 j = i;
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	83 endfor
7125 f084ba47812b [project @ 2007-11-08 02:29:23 by jwe] jwe parents: 7017 diff changeset	84
20181 aa36fb998a4d maint: Remove unnecessary whitespace at end of lines. Rik <rik@octave.org> parents: 20158 diff changeset	85 ## Matlab definition include both in polygon and on polygon points.
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	86 in \|= on;
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	87
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	88 endfunction
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	89
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	90
956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	91 %!demo
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	92 %! xv = [ 0.05840, 0.48375, 0.69356, 1.47478, 1.32158, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	93 %! 1.94545, 2.16477, 1.87639, 1.18218, 0.27615, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	94 %! 0.05840 ];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	95 %! yv = [ 0.60628, 0.04728, 0.50000, 0.50000, 0.02015, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	96 %! 0.18161, 0.78850, 1.13589, 1.33781, 1.04650, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	97 %! 0.60628 ];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	98 %! xa = [0:0.1:2.3];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	99 %! ya = [0:0.1:1.4];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	100 %! [x,y] = meshgrid (xa, ya);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	101 %! [in,on] = inpolygon (x, y, xv, yv);
20955 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20852 diff changeset	102 %! inside = in & ! on;
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	103 %!
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	104 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	105 %! plot (xv, yv);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	106 %! hold on;
21580 ecce63c99c3f maint: Add semicolons to terminate code in %! blocks. Rik <rik@octave.org> parents: 21223 diff changeset	107 %! plot (x(inside), y(inside), "@g");
20955 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20852 diff changeset	108 %! plot (x(! in), y(! in), "@m");
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	109 %! plot (x(on), y(on), "@b");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	110 %! hold off;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	111 %! disp ("Green points are inside polygon, magenta are outside,");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	112 %! disp ("and blue are on boundary.");
6847 956148c0d388 [project @ 2007-08-30 07:39:32 by dbateman] dbateman parents: diff changeset	113
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	114 %!demo
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	115 %! xv = [ 0.05840, 0.48375, 0.69356, 1.47478, 1.32158, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	116 %! 1.94545, 2.16477, 1.87639, 1.18218, 0.27615, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	117 %! 0.05840, 0.73295, 1.28913, 1.74221, 1.16023, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	118 %! 0.73295, 0.05840 ];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	119 %! yv = [ 0.60628, 0.04728, 0.50000, 0.50000, 0.02015, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	120 %! 0.18161, 0.78850, 1.13589, 1.33781, 1.04650, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	121 %! 0.60628, 0.82096, 0.67155, 0.96114, 1.14833, ...
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	122 %! 0.82096, 0.60628];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	123 %! xa = [0:0.1:2.3];
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	124 %! ya = [0:0.1:1.4];
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	125 %! [x, y] = meshgrid (xa, ya);
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	126 %! [in, on] = inpolygon (x, y, xv, yv);
20955 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20852 diff changeset	127 %! inside = in & ! on;
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	128 %!
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	129 %! clf;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	130 %! plot (xv, yv);
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	131 %! hold on;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	132 %! plot (x(inside), y(inside), "@g");
20955 77f5591878bf maint: Use '! expr' rather than '!expr' to conform to coding guidelines. Rik <rik@octave.org> parents: 20852 diff changeset	133 %! plot (x(! in), y(! in), "@m");
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	134 %! plot (x(on), y(on), "@b");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	135 %! hold off;
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	136 %! disp ("Green points are inside polygon, magenta are outside,");
11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	137 %! disp ("and blue are on boundary.");
13057 85c77dd2e85b codesprint: tests for inpolygon John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	138
85c77dd2e85b codesprint: tests for inpolygon John W. Eaton <jwe@octave.org> parents: 11587 diff changeset	139 %!test
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	140 %! [in, on] = inpolygon ([1, 0, 2], [1, 0, 0], [-1, -1, 1, 1], [-1, 1, 1, -1]);
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	141 %! assert (in, [true, true, false]);
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	142 %! assert (on, [true, false, false]);
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14222 diff changeset	143
31253 a40c0b7aa376 maint: changes to follow Octave coding conventions. Rik <rik@octave.org> parents: 30564 diff changeset	144 ## 3-D array input
21222 732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	145 %!test
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	146 %! x = zeros (2, 2, 2);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	147 %! x(1, 1, 1) = 1;
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	148 %! x(2, 2, 2) = 2;
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	149 %! y = zeros (2, 2, 2);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	150 %! y(1, 1, 1) = 1;
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	151 %! y(2, 2, 2) = -1;
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	152 %! [in, on] = inpolygon (x, y, [-1, -1, 1, 1], [-1, 1, 1, -1]);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	153 %! IN = true (2, 2, 2);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	154 %! IN(2, 2, 2) = false;
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	155 %! ON = false (2, 2, 2);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	156 %! ON(1, 1, 1) = true;
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	157 %! assert (in, IN);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	158 %! assert (on, ON);
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	159
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	160 ## Test input validation
28896 90fea9cc9caa test: Add expected error message <Invalid call> to BIST tests for nargin. Rik <rik@octave.org> parents: 27984 diff changeset	161 %!error <Invalid call> inpolygon ()
90fea9cc9caa test: Add expected error message <Invalid call> to BIST tests for nargin. Rik <rik@octave.org> parents: 27984 diff changeset	162 %!error <Invalid call> inpolygon (1, 2)
90fea9cc9caa test: Add expected error message <Invalid call> to BIST tests for nargin. Rik <rik@octave.org> parents: 27984 diff changeset	163 %!error <Invalid call> inpolygon (1, 2, 3)
21222 732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	164 %!error <X and Y must be real> inpolygon (1i, 1, [3, 4], [5, 6])
732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	165 %!error <X and Y must be real> inpolygon (1, {1}, [3, 4], [5, 6])
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	166 %!error <X and Y must be .* the same size> inpolygon (1, [1,2], [3, 4], [5, 6])
21222 732ec49d1ec5 Fix regressions caused by ismatrix definition change (partial fix bug #47036). Colin Macdonald <cbm@m.fsf.org> parents: 20181 diff changeset	167 %!error <X and Y must be .* the same size> inpolygon (1, ones (1,1,2), [3, 4], [5, 6])
20133 bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	168 %!error <XV and YV must be real vectors> inpolygon (1, 1, [3i, 4], [5, 6])
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	169 %!error <XV and YV must be real vectors> inpolygon (1, 1, [3, 4], {5, 6})
bef9086a6725 inpolygon.m: Overhaul function and fix bug #40970. Rik <rik@octave.org> parents: 19833 diff changeset	170 %!error <XV and YV must .* the same size> inpolygon ([1,2], [3, 4], [5, 6], 1)

Mercurial > octave

annotate scripts/geometry/inpolygon.m @ 31253:a40c0b7aa376