Mercurial > octave-nkf
comparison scripts/ode/private/fuzzy_compare.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 |
comparison
equal
deleted
inserted
replaced
| 20585:45151de7423f | 20586:b7ac1e94266e |
|---|---|
| 119 minimus = min (minimus, values(i)); | 119 minimus = min (minimus, values(i)); |
| 120 endfor | 120 endfor |
| 121 | 121 |
| 122 positions = find (values == minimus); | 122 positions = find (values == minimus); |
| 123 | 123 |
| 124 if (minimus == 0) # exact match | 124 if (minimus == 0) # exact match |
| 125 if (rows (positions) != 1) | 125 if (rows (positions) != 1) |
| 126 error ("OdePkg:InvalidArgument", | 126 error ("OdePkg:InvalidArgument", |
| 127 "there are %d strings perfectly matching '%s'", | 127 "there are %d strings perfectly matching '%s'", |
| 128 rows (positions), string1); | 128 rows (positions), string1); |
| 129 endif | 129 endif |