Mercurial > hg > octave-nkf
diff scripts/geometry/delaunay3.m @ 6826:8618f29520c6
[project @ 2007-08-24 16:02:07 by jwe]
author | jwe |
---|---|
date | Fri, 24 Aug 2007 16:02:07 +0000 |
parents | 9fddcc586065 |
children | 7911a62a300d |
line wrap: on
line diff
--- a/scripts/geometry/delaunay3.m +++ b/scripts/geometry/delaunay3.m @@ -30,25 +30,25 @@ ## @seealso{delaunay,delaunayn} ## @end deftypefn -## Author: Kai Habel <kai.habel@gmx.de> +## Author: Kai Habel <kai.habel@gmx.de> -function tetr = delaunay3 (x,y,z,opt) +function tetr = delaunay3 (x, y, z, opt) - if ((nargin != 3) && (nargin != 4)) + if (nargin != 3 && nargin != 4) print_usage (); endif - if (isvector(x) && isvector(y) &&isvector(z) && ... - (length(x) == length(y)) && (length(x) == length(z))) + if (isvector (x) && isvector (y) &&isvector (z) + && length (x) == length (y) && length(x) == length (z)) if (nargin == 3) - tetr = delaunayn([x(:),y(:),z(:)]); - elseif (ischar(opt) || iscell (opt)) - tetr = delaunayn([x(:),y(:),z(:)], opt); + tetr = delaunayn ([x(:), y(:), z(:)]); + elseif (ischar (opt) || iscell (opt)) + tetr = delaunayn ([x(:), y(:), z(:)], opt); else - error("delaunay3: fourth argument must be a string or cell array of strings"); + error ("delaunay3: fourth argument must be a string or cell array of strings"); endif else - error("delaunay3: first three input arguments must be vectors of same size"); + error ("delaunay3: first three input arguments must be vectors of same size"); endif endfunction