Mercurial > octave
diff scripts/specfun/gammaincinv.m @ 28945:6e460773bdda
maint: Use newlines after "function" and before "endfunction" for clarity.
* quad2d.m, rng.m, __ok_cancel_dlg__.m, __unimplemented__.m,
get_first_help_sentence.m, imformats.m, vectorize.m, ordeig.m, inputParser.m,
tar_is_bsd.m, publish.m, axis.m, legend.m, polar.m, __plt__.m, print.m,
__add_default_menu__.m, __gnuplot_draw_axes__.m, struct2hdl.m, movfun.m,
gmres.m, pcg.m, __alltohandles__.m, tfqmr.m, betaincinv.m, gammainc.m,
gammaincinv.m, mean.m, weboptions.m:
Use newlines after "function" and before "endfunction" for clarity.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 16 Oct 2020 09:27:56 -0700 |
parents | d39b09b4c5db |
children | 7854d5752dd2 |
line wrap: on
line diff
--- a/scripts/specfun/gammaincinv.m Thu Oct 15 21:24:06 2020 -0700 +++ b/scripts/specfun/gammaincinv.m Fri Oct 16 09:27:56 2020 -0700 @@ -256,6 +256,7 @@ ## subfunction: Newton's Method function x = newton_method (F, JF, y, a, x0, tol, maxit); + l = numel (y); res = -F (y, a, x0) ./ JF (a, x0); todo = (abs (res) >= tol * abs (x0)); @@ -267,6 +268,7 @@ todo = (abs (res) >= tol * abs (x)); endwhile x += res; + endfunction