octave-lyh: scripts/plot/private/__interp_cube_

annotate scripts/plot/private/__interp_cube__.m @ 14529:aabdc8f281f1

legend.m: Change default to boxon for Matlab compatibility (bug #36105). * legend.m: Change default to boxon for Matlab compatibility (bug #36105).

author	Rik <octave@nomad.inbox5.com>
date	Thu, 05 Apr 2012 21:46:21 -0700
parents	72c96de7a403
children	5d3a684236b0

rev	line source
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1 ## Copyright (C) 2009-2012 Martin Helm
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	2 ##
11104 2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	3 ## This file is part of Octave.
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	4 ##
11104 2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	6 ## under the terms of the GNU General Public License as published by
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	8 ## your option) any later version.
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	9 ##
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	13 ## General Public License for more details.
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	14 ##
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
11104 2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
2c356a35d7f5 fix copyright notices John W. Eaton <jwe@octave.org> parents: 10635 diff changeset	17 ## <http://www.gnu.org/licenses/>.
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	18 ##
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	19 ## Author: Martin Helm <martin@mhelm.de>
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	20
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	21 ## -- texinfo --
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	22 ## @deftypefn {Function File} {[@var{vxyz}, @var{idx}, @var{frac}] =} __interp_cube__ (@var{x}, @var{y}, @var{z}, @var{val}, @var{v})
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	23 ## Undocumented internal function.
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	24 ## @end deftypefn
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	25
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	26 function [Vxyz, idx, frac] = __interp_cube__(x, y, z, val, v, req = "values" )
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	27 if (ismatrix (x) && ndims (x) == 3 && ismatrix (y) && ndims (y) == 3 ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	28 && ismatrix (z) && ndims (z) == 3 && size_equal (x, y, z, val))
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	29 x = squeeze (x(1,:,1))(:);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	30 y = squeeze (y(:,1,1))(:);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	31 z = squeeze (z(1,1,:))(:);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	32 elseif (isvector (x) && isvector (y) && isvector (z) )
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	33 x = x(:);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	34 y = y(:);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	35 z = z(:);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	36 else
11472 1740012184f9 Use uppercase for variable names in error() strings to match Info documentation. Only m-files done. Rik <octave@nomad.inbox5.com> parents: 11120 diff changeset	37 error("__interp_cube__: X, Y, Z have wrong dimensions");
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	38 endif
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	39 if (size (val) != [length(x), length(y), length(z)])
11472 1740012184f9 Use uppercase for variable names in error() strings to match Info documentation. Only m-files done. Rik <octave@nomad.inbox5.com> parents: 11120 diff changeset	40 error ("__interp_cube__: VAL has wrong dimensions");
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	41 endif
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	42 if (size (v, 2) != 3)
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	43 error ( "v has to be N*3 matrix");
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	44 endif
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	45 if (!ischar (req))
10635 d1978e7364ad Print name of function in error() string messages. Rik <octave@nomad.inbox5.com> parents: 9896 diff changeset	46 error ("__interp_cube__: Invalid request parameter use 'values', 'normals' or 'normals8'");
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	47 endif
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	48 if (isempty (v))
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	49 Vxyz = idx = frac = [];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	50 return
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	51 endif
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	52
11120 a44f979a35ce style fixes for some .m files John W. Eaton <jwe@octave.org> parents: 11104 diff changeset	53 switch (req)
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	54 case "values"
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	55 [Vxyz, idx, frac] = interp_cube_trilin (x, y, z, val, v);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	56 case "normals"
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	57 [idx, frac] = cube_idx (x, y, z, v);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	58
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	59 dx = x(2:end) - x(1:end-1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	60 dy = y(2:end) - y(1:end-1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	61 dz = z(2:end) - z(1:end-1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	62 dx = 0.5 .* [dx;dx(end)](idx(:,2));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	63 dy = 0.5 .* [dy;dy(end)](idx(:,1));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	64 dz = 0.5 .* [dz;dz(end)](idx(:,3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	65
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	66 p000 = [v(:, 1) - dx, v(:, 2) - dy, v(:, 3) - dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	67 p100 = [v(:, 1) + dx, v(:, 2) - dy, v(:, 3) - dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	68 p010 = [v(:, 1) - dx, v(:, 2) + dy, v(:, 3) - dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	69 p001 = [v(:, 1) - dx, v(:, 2) - dy, v(:, 3) + dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	70 p011 = [v(:, 1) - dx, v(:, 2) + dy, v(:, 3) + dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	71 p101 = [v(:, 1) + dx, v(:, 2) - dy, v(:, 3) + dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	72 p110 = [v(:, 1) + dx, v(:, 2) + dy, v(:, 3) - dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	73 p111 = [v(:, 1) + dx, v(:, 2) + dy, v(:, 3) + dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	74
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	75 v000 = interp_cube_trilin (x, y, z, val, p000);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	76 v100 = interp_cube_trilin (x, y, z, val, p100);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	77 v010 = interp_cube_trilin (x, y, z, val, p010);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	78 v001 = interp_cube_trilin (x, y, z, val, p001);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	79 v011 = interp_cube_trilin (x, y, z, val, p011);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	80 v101 = interp_cube_trilin (x, y, z, val, p101);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	81 v110 = interp_cube_trilin (x, y, z, val, p110);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	82 v111 = interp_cube_trilin (x, y, z, val, p111);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	83
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	84 Dx = -v000 .+ v100 .- v010 .- v001 .- v011 .+ v101 .+ v110 .+ v111;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	85 Dy = -v000 .- v100 .+ v010 .- v001 .+ v011 .- v101 .+ v110 .+ v111;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	86 Dz = -v000 .- v100 .- v010 .+ v001 .+ v011 .+ v101 .- v110 .+ v111;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	87 Vxyz = 0.5 .* [Dx./dx, Dy./dy, Dz./dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	88 case "normals8"
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	89 [idx, frac] = cube_idx (x, y, z, v);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	90
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	91 dx = x(2:end) - x(1:end-1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	92 dy = y(2:end) - y(1:end-1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	93 dz = z(2:end) - z(1:end-1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	94 dx = [dx;dx(end)](idx(:,2));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	95 dy = [dy;dy(end)](idx(:,1));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	96 dz = [dz;dz(end)](idx(:,3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	97 [Dx, Dy, Dz, idx, frac] = interp_cube_trilin_grad (x, y, z, val, v);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	98 Vxyz = [Dx./dx, Dy./dy, Dz./dz];
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	99 otherwise
10635 d1978e7364ad Print name of function in error() string messages. Rik <octave@nomad.inbox5.com> parents: 9896 diff changeset	100 error ("__interp_cube__: Invalid request type '%s', use 'values', 'normals' or 'normals8'", req);
9110 22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	101 endswitch
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	102 endfunction
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	103
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	104 function [Vxyz, idx, frac] = interp_cube_trilin(x, y, z, val, v)
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	105 [idx, frac] = cube_idx (x(:), y(:), z(:), v);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	106 sval = size (val);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	107 i000 = sub2ind (sval, idx(:, 1), idx(:, 2), idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	108 i100 = sub2ind (sval, idx(:, 1)+1, idx(:, 2), idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	109 i010 = sub2ind (sval, idx(:, 1), idx(:, 2)+1, idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	110 i001 = sub2ind (sval, idx(:, 1), idx(:, 2), idx(:, 3)+1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	111 i101 = sub2ind (sval, idx(:, 1)+1, idx(:, 2), idx(:, 3)+1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	112 i011 = sub2ind (sval, idx(:, 1), idx(:, 2)+1, idx(:, 3)+1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	113 i110 = sub2ind (sval, idx(:, 1)+1, idx(:, 2)+1, idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	114 i111 = sub2ind (sval, idx(:, 1)+1, idx(:, 2)+1, idx(:, 3)+1 );
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	115 Bx = frac(:, 1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	116 By = frac(:, 2);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	117 Bz = frac(:, 3);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	118 Vxyz = ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	119 val( i000 ) .* (1 .- Bx) .* (1 .- By) .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	120 val( i100 ) .* Bx .* (1 .- By) .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	121 val( i010 ) .* (1 .- Bx) .* By .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	122 val( i001 ) .* (1 .- Bx) .* (1 .- By) .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	123 val( i011 ) .* (1 .- Bx) .* By .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	124 val( i101 ) .* Bx .* (1 .- By) .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	125 val( i110 ) .* Bx .* By .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	126 val( i111 ) .* Bx .* By .* Bz;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	127 endfunction
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	128
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	129 function [Dx, Dy, Dz, idx, frac] = interp_cube_trilin_grad(x, y, z, val, v)
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	130 [idx, frac] = cube_idx (x(:), y(:), z(:), v);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	131 sval = size (val);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	132 i000 = sub2ind (sval, idx(:, 1), idx(:, 2), idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	133 i100 = sub2ind (sval, idx(:, 1)+1, idx(:, 2), idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	134 i010 = sub2ind (sval, idx(:, 1), idx(:, 2)+1, idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	135 i001 = sub2ind (sval, idx(:, 1), idx(:, 2), idx(:, 3)+1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	136 i101 = sub2ind (sval, idx(:, 1)+1, idx(:, 2), idx(:, 3)+1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	137 i011 = sub2ind (sval, idx(:, 1), idx(:, 2)+1, idx(:, 3)+1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	138 i110 = sub2ind (sval, idx(:, 1)+1, idx(:, 2)+1, idx(:, 3));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	139 i111 = sub2ind (sval, idx(:, 1)+1, idx(:, 2)+1, idx(:, 3)+1 );
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	140 Bx = frac(:, 1);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	141 By = frac(:, 2);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	142 Bz = frac(:, 3);
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	143 Dx = ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	144 val( i000 ) .* -1 .* (1 .- By) .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	145 val( i100 ) .* (1 .- By) .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	146 val( i010 ) .* -1 .* By .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	147 val( i001 ) .* -1 .* (1 .- By) .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	148 val( i011 ) .* -1 .* By .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	149 val( i101 ) .* (1 .- By) .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	150 val( i110 ) .* By .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	151 val( i111 ) .* By .* Bz;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	152 Dy = ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	153 val( i000 ) .* (1 .- Bx) .* -1 .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	154 val( i100 ) .* Bx .* -1 .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	155 val( i010 ) .* (1 .- Bx) .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	156 val( i001 ) .* (1 .- Bx) .* -1 .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	157 val( i011 ) .* (1 .- Bx) .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	158 val( i101 ) .* Bx .* -1 .* Bz .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	159 val( i110 ) .* Bx .* (1 .- Bz) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	160 val( i111 ) .* Bx .* Bz;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	161 Dz = ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	162 val( i000 ) .* (1 .- Bx) .* (1 .- By) .* -1 .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	163 val( i100 ) .* Bx .* (1 .- By) .* -1 .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	164 val( i010 ) .* (1 .- Bx) .* By .* -1 .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	165 val( i001 ) .* (1 .- Bx) .* (1 .- By) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	166 val( i011 ) .* (1 .- Bx) .* By + ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	167 val( i101 ) .* Bx .* (1 .- By) .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	168 val( i110 ) .* Bx .* By .* -1 .+ ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	169 val( i111 ) .* Bx .* By;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	170 endfunction
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	171
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	172 function [idx, frac] = cube_idx(x, y, z, v)
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	173 idx = zeros (size (v));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	174 frac = zeros (size (v));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	175 idx(:, 2) = lookup (x(2:end-1), v(:, 1)) + 1;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	176 frac(:, 2) = (v(:, 1) - x(idx(:, 2)) )...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	177 ./ (x(idx(:, 2)+1) - x(idx(:, 2)));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	178 idx(:, 1) = lookup (y(2:end-1), v(:, 2)) + 1;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	179 frac(:, 1) = (v(:, 2) - y(idx(:, 1))) ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	180 ./ (y(idx(:, 1)+1) - y(idx(:, 1)));
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	181 idx(:, 3) = lookup (z(2:end-1), v(:, 3)) + 1;
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	182 frac(:, 3) = (v(:, 3) - z(idx(:, 3))) ...
22ae6b3411a7 Add isocolor, isonormals and isosurface functions (For Martin Helm). Add 3D filled triangular patches and the trisurf function David Bateman <dbateman@free.fr> parents: diff changeset	183 ./ (z(idx(:, 3)+1) - z(idx(:, 3)));
10635 d1978e7364ad Print name of function in error() string messages. Rik <octave@nomad.inbox5.com> parents: 9896 diff changeset	184 endfunction

Mercurial > hg > octave-lyh

annotate scripts/plot/private/__interp_cube__.m @ 14529:aabdc8f281f1