Mercurial > octave
diff scripts/ode/private/runge_kutta_interpolate.m @ 30893:e1788b1a315f
maint: Use "fcn" as preferred abbreviation for "function" in m-files.
* accumarray.m, accumdim.m, quadl.m, quadv.m, randi.m, structfun.m,
__is_function__.m, uigetfile.m, uimenu.m, uiputfile.m, doc_cache_create.m,
colorspace_conversion_input_check.m, imageIO.m, argnames.m, vectorize.m,
vectorize.m, normest1.m, inputname.m, nthargout.m, display_info_file.m,
decic.m, ode15i.m, ode15s.m, ode23.m, ode23s.m, ode45.m, odeset.m,
check_default_input.m, integrate_adaptive.m, ode_event_handler.m,
runge_kutta_23.m, runge_kutta_23s.m, runge_kutta_45_dorpri.m,
runge_kutta_interpolate.m, starting_stepsize.m, __all_opts__.m, fminbnd.m,
fminsearch.m, fminunc.m, fsolve.m, fzero.m, sqp.m, fplot.m, plotyy.m,
__bar__.m, __ezplot__.m, flat_entry.html, profexport.m, movfun.m, bicg.m,
bicgstab.m, cgs.m, eigs.m, gmres.m, pcg.m, __alltohandles__.m, __sprand__.m,
qmr.m, tfqmr.m, dump_demos.m:
Replace "func", "fun", "fn" in documentation and variable names with "fcn".
author | Rik <rik@octave.org> |
---|---|
date | Mon, 04 Apr 2022 18:14:56 -0700 |
parents | 796f54d4ddbf |
children | 88fff8521d76 |
line wrap: on
line diff
--- a/scripts/ode/private/runge_kutta_interpolate.m Mon Apr 04 11:22:26 2022 -0700 +++ b/scripts/ode/private/runge_kutta_interpolate.m Mon Apr 04 18:14:56 2022 -0700 @@ -23,7 +23,7 @@ ## ######################################################################## -function u_interp = runge_kutta_interpolate (order, z, u, t, k_vals, dt, func, args) +function u_interp = runge_kutta_interpolate (order, z, u, t, k_vals, dt, fcn, args) switch (order) @@ -34,7 +34,7 @@ if (! isempty (k_vals)) der = k_vals(:,1); else - der = feval (func, z(1) , u(:,1), args); + der = feval (fcn, z(1) , u(:,1), args); endif u_interp = quadratic_interpolation (z, u, der, t); @@ -48,8 +48,8 @@ otherwise warning (["High order interpolation not yet implemented: ", ... "using cubic interpolation instead"]); - der(:,1) = feval (func, z(1), u(:,1), args); - der(:,2) = feval (func, z(2), u(:,2), args); + der(:,1) = feval (fcn, z(1), u(:,1), args); + der(:,2) = feval (fcn, z(2), u(:,2), args); u_interp = hermite_cubic_interpolation (z, u, der, t); endswitch