Functions | |
if (nargin< 1) print_usage() | |
endif | if (ischar(varargin{end})) method |
elseif (ischar(varargin{end-1})) if(!isnumeric(varargin | |
!isscalar (varargin{end})) error("extrapal is expected to be a numeric scalar") | |
endif | if (nargs< 3||(nargs==4 &&!isvector(varargin{1})&&nargs==(ndims(varargin{1})+1))) v |
if (ndims(v)!=3) error("expect 3-dimensional array of values") | |
if (any(!cellfun(@isvector, x))) for i | |
elseif (nargs==7 &&nargs==(2 *ndims(varargin{ceil(nargs/2)}))+1) v = varargin{1} | |
if (any(!cellfun(@isvector, y))) for i | |
else | error ("wrong number or incorrectly formatted input arguments") |
!assert (vi, vi2) | |
Variables | |
function | vi |
extrapval = NA | |
nargs = nargin | |
method = varargin{end-1} | |
endif | x = varargin (2:4) |
endif | v = permute (v, [2, 1, 3]) |
endif | y = varargin (5:7) |
endif endfunction!test | !x = y = z = -1:1 |
!f = @(x,y,z) x.^2 - y - z.^2 | |
!v = meshgrid (x, y, z) f (xx,yy,zz) | |
!xi = yi = zi = -1:0.5:1 | |
!vi = meshgrid (xi, yi, zi) interp3(x, y, z, v, xxi, yyi, zzi) | |
!vi2 = ndgrid (xi, yi, zi) interpn(x, y, z, v, xxi, yyi, zzi) |
!assert | ( | vi | , | |
vi2 | ||||
) |
!isscalar | ( | ) |
elseif | ( | ischar(varargin{end-1}) | ) |
else error | ( | "wrong number or incorrectly formatted input arguments" | ) |
if | ( | any(!cellfun(@isvector, y)) | ) |
if | ( | any(!cellfun(@isvector, x)) | ) |
if | ( | ndims(v)! | = 3 |
) |
endif if | ( | ischar(varargin{end}) | ) |
if | ( | ) |
!f = @(x,y,z) x.^2 - y - z.^2 |
!v = meshgrid (x, y, z) f (xx,yy,zz) |
!vi = meshgrid (xi, yi, zi) interp3(x, y, z, v, xxi, yyi, zzi) |
!vi2 = ndgrid (xi, yi, zi) interpn(x, y, z, v, xxi, yyi, zzi) |
endif endfunction !test !x = y = z = -1:1 |
!xi = yi = zi = -1:0.5:1 |
method = varargin{end-1} |
endif v = permute (v, [2, 1, 3]) |
endif x = varargin (2:4) |
endif y = varargin (5:7) |