Mercurial > octave-nkf
diff scripts/ode/private/integrate_const.m @ 20586:b7ac1e94266e
maint: Further clean up of functions in ode/private dir.
* AbsRel_Norm.m, fuzzy_compare.m, integrate_adaptive.m, integrate_const.m,
integrate_n_steps.m, ode_struct_value_check.m, odepkg_event_handle.m,
odepkg_structure_check.m, runge_kutta_45_dorpri.m:
Place latest copyright first in file.
Use two spaces before beginning single-line comment.
Use parentheses around variable to be tested in switch stmt.
Use space between function name and opening parenthesis.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 05 Oct 2015 12:03:16 -0700 |
parents | eb9e2d187ed2 |
children | a260a6acb70f |
line wrap: on
line diff
--- a/scripts/ode/private/integrate_const.m Mon Oct 05 11:59:18 2015 -0700 +++ b/scripts/ode/private/integrate_const.m Mon Oct 05 12:03:16 2015 -0700 @@ -136,7 +136,7 @@ ## if next tspan value is caught, update counter if ((z(end) == tspan(counter)) || (abs (z(end) - tspan(counter)) / - (max(abs (z(end)), abs(tspan(counter)))) < 8*eps) ) + (max (abs (z(end)), abs (tspan(counter)))) < 8*eps) ) counter++; ## if there is an element in time vector at which the solution is required @@ -150,7 +150,7 @@ if ((counter <= k) && (((z(i) == tspan(counter)) || (abs (z(i) - tspan(counter)) / - (max(abs (z(i)), abs (tspan(counter)))) < 8*eps))) ) + (max (abs (z(i)), abs (tspan(counter)))) < 8*eps))) ) counter++; endif ## else, loop until there are requested values inside this subinterval @@ -232,8 +232,8 @@ endif ## Update counters that count the number of iteration cycles - solution.vcntcycles = solution.vcntcycles + 1; # Needed for cost statistics - vcntiter = vcntiter + 1; # Needed to find iteration problems + solution.vcntcycles = solution.vcntcycles + 1; # Needed for cost statistics + vcntiter = vcntiter + 1; # Needed to find iteration problems ## Stop solving because the last 1000 steps no successful valid ## value has been found