Mercurial > octave-nkf

comparison scripts/general/private/__splinen__.m @ 17176:abf384f5d243

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Remove unneeded input validation from internal fcns in private/ directories. * scripts/general/private/__isequal__.m, scripts/general/private/__splinen__.m, scripts/image/private/__imwrite__.m, scripts/image/private/ind2x.m, scripts/miscellaneous/private/__xzip__.m, scripts/miscellaneous/private/display_info_file.m, scripts/pkg/private/describe.m, scripts/pkg/private/get_forge_pkg.m, scripts/pkg/private/unload_packages.m, scripts/plot/private/__actual_axis_position__.m, scripts/plot/private/__add_datasource__.m, scripts/plot/private/__clabel__.m, scripts/plot/private/__errcomm__.m, scripts/plot/private/__errplot__.m, scripts/plot/private/__fltk_print__.m, scripts/plot/private/__gnuplot_get_var__.m, scripts/plot/private/__go_draw_axes__.m, scripts/plot/private/__go_draw_figure__.m, scripts/plot/private/__interp_cube__.m, scripts/plot/private/__line__.m, scripts/plot/private/__next_line_color__.m, scripts/plot/private/__next_line_style__.m, scripts/plot/private/__plt__.m, scripts/plot/private/__pltopt__.m, scripts/signal/private/rectangle_lw.m, scripts/signal/private/rectangle_sw.m, scripts/signal/private/triangle_lw.m, scripts/signal/private/triangle_sw.m, scripts/sparse/private/__sprand_impl__.m, scripts/statistics/models/private/logistic_regression_derivatives.m, scripts/statistics/models/private/logistic_regression_likelihood.m: Remove unneeded input validation from internal fcns in private/ directories.
author Rik <rik@octave.org>
date Sun, 04 Aug 2013 18:13:08 -0700
parents 5d3a684236b0
children 1c89599167a6
comparison
equal deleted inserted replaced
17175:4bb7ae321901 17176:abf384f5d243
24 ## @end deftypefn 24 ## @end deftypefn
25 25
26 ## FIXME: Allow arbitrary grids.. 26 ## FIXME: Allow arbitrary grids..
27 27
28 function yi = __splinen__ (x, y, xi, extrapval, f) 28 function yi = __splinen__ (x, y, xi, extrapval, f)
29 if (nargin != 5)
30 error ("__splinen__: Incorrect number of arguments");
31 endif
32 ## ND isvector function. 29 ## ND isvector function.
33 isvec = @(x) numel (x) == length (x); 30 isvec = @(x) numel (x) == length (x);
34 if (!iscell (x) || length (x) < ndims (y) || any (! cellfun (isvec, x)) 31 if (!iscell (x) || length (x) < ndims (y) || any (! cellfun (isvec, x))
35 || !iscell (xi) || length (xi) < ndims (y) || any (! cellfun (isvec, xi))) 32 || !iscell (xi) || length (xi) < ndims (y) || any (! cellfun (isvec, xi)))
36 error ("__splinen__: %s: non gridded data or dimensions inconsistent", f); 33 error ("__splinen__: %s: non-gridded data or dimensions inconsistent", f);
37 endif 34 endif
38 yi = y; 35 yi = y;
39 for i = length (x):-1:1 36 for i = length (x):-1:1
40 yi = permute (spline (x{i}, yi, xi{i}(:)), [length(x),1:length(x)-1]); 37 yi = permute (spline (x{i}, yi, xi{i}(:)), [length(x),1:length(x)-1]);
41 endfor 38 endfor