Mercurial > octave
annotate scripts/geometry/inpolygon.m @ 28896:90fea9cc9caa
test: Add expected error message <Invalid call> to BIST tests for nargin.
* acosd.m, acot.m, acotd.m, acoth.m, acsc.m, acscd.m, acsch.m, asec.m,
asecd.m, asech.m, asind.m, atand.m, cosd.m, cot.m, cotd.m, coth.m, csc.m,
cscd.m, csch.m, sec.m, secd.m, sech.m, sind.m, tand.m, cart2pol.m, cart2sph.m,
celldisp.m, common_size.m, deal.m, del2.m, fliplr.m, integral2.m, interp1.m,
isequal.m, isequaln.m, nextpow2.m, pol2cart.m, quad2d.m, quadl.m, quadv.m,
randi.m, rat.m, repelem.m, rescale.m, shiftdim.m, sortrows.m, sph2cart.m,
xor.m, convhull.m, delaunay.m, delaunayn.m, griddata.m, griddatan.m,
inpolygon.m, voronoi.m, voronoin.m, listdlg.m, msgbox.m, questdlg.m,
rmappdata.m, setappdata.m, __gripe_missing_component__.m,
get_first_help_sentence.m, type.m, which.m, cmpermute.m, cmunique.m,
gray2ind.m, imfinfo.m, imshow.m, imwrite.m, ind2rgb.m, movie.m, rgb2ind.m,
importdata.m, bandwidth.m, condeig.m, gls.m, housh.m, linsolve.m, logm.m,
lscov.m, normest.m, normest1.m, ols.m, ordeig.m, planerot.m, qzhess.m, rref.m,
copyfile.m, delete.m, dos.m, fileparts.m, getfield.m, menu.m, mkdir.m,
movefile.m, orderfields.m, publish.m, setfield.m, substruct.m, unix.m,
unpack.m, decic.m, ode23.m, ode23s.m, ode45.m, fminsearch.m, lsqnonneg.m,
pqpnonneg.m, sqp.m, annotation.m, lighting.m, shading.m, area.m, compass.m,
contourc.m, feather.m, fplot.m, hist.m, isocaps.m, isocolors.m, isonormals.m,
isosurface.m, ostreamtube.m, pie.m, pie3.m, reducepatch.m, reducevolume.m,
rose.m, smooth3.m, stairs.m, stem.m, stem3.m, stream2.m, stream3.m,
streamline.m, streamribbon.m, streamtube.m, surfnorm.m, trimesh.m, trisurf.m,
colstyle.m, hgload.m, linkprop.m, meshgrid.m, ndgrid.m, padecoef.m, polyfit.m,
polyval.m, unmkpp.m, profexport.m, ismember.m, unique.m, movfun.m, movslice.m,
periodogram.m, sinc.m, spdiags.m, sprandsym.m, betaincinv.m, ellipke.m,
factor.m, gammainc.m, gammaincinv.m, isprime.m, lcm.m, gallery.m, hadamard.m,
bounds.m, corrcoef.m, discrete_rnd.m, empirical_rnd.m, histc.m, mode.m,
movmad.m, movmax.m, movmean.m, movmedian.m, movmin.m, movprod.m, movstd.m,
movsum.m, movvar.m, ranks.m, runlength.m, zscore.m, str2num.m, strchr.m,
strsplit.m, strtok.m, untabify.m, assert.m, demo.m, example.m, speed.m, test.m,
datenum.m, datevec.m, webread.m, webwrite.m:
Add expected error message <Invalid call> to BIST tests for nargin.
Remove redundant tests for nargin greater than the number of declared inputs
which are now handled by interpreter.
author | Rik <rik@octave.org> |
---|---|
date | Sun, 11 Oct 2020 21:59:35 -0700 |
parents | b09432b20a84 |
children | 7854d5752dd2 |
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 ## |
27919
1891570abac8
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
27918
diff
changeset
|
3 ## Copyright (C) 2006-2020 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 | 7 ## |
8 ## This file is part of Octave. | |
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 | 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 | 14 ## |
15 ## Octave is distributed in the hope that it will be useful, but | |
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 | 19 ## |
20 ## You should have received a copy of the GNU General Public License | |
7016 | 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 | 25 |
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 | 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 | 39 ## @end deftypefn |
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 | 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 | 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 | 47 |
7125 | 48 if (nargin != 4) |
49 print_usage (); | |
50 endif | |
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 | 55 elseif (! (isreal (xv) && isreal (yv) && isvector (xv) && isvector (yv) |
10549 | 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 | 58 endif |
59 | |
7125 | 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 | 64 j = npol; |
65 for i = 1 : npol | |
66 delta_xv = xv(j) - xv(i); | |
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 | 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 | 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 | 82 j = i; |
83 endfor | |
7125 | 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 | 88 endfunction |
89 | |
90 | |
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 | 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 |
21222
732ec49d1ec5
Fix regressions caused by ismatrix definition change (partial fix bug #47036).
Colin Macdonald <cbm@m.fsf.org>
parents:
20181
diff
changeset
|
144 ## 3D array input |
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) |