Reduced row echelon form: Difference between revisions
Content added Content deleted
(→{{header|OCaml}}: (another implementation)) |
|||
Line 1,441: | Line 1,441: | ||
for c = 0 to min (nc-1) (nr-1) do |
for c = 0 to min (nc-1) (nr-1) do |
||
for r = c+1 to nr-1 do |
for r = c+1 to nr-1 do |
||
if |
if abs_float m.(c).(c) < abs_float m.(r).(c) then |
||
let v = m.(r) in (m.(r) <- m.(c); m.(r) <- v) |
let v = m.(r) in (m.(r) <- m.(c); m.(r) <- v) |
||
done; |
done; |