Uppgift 10

A = [8 1 6; 3 5 7; 4 9 2]
q = findpivot(A, 2)
A = dopivot(A, 2, 1)

function imax=findpivot(a,c)
    [m,n] = size(a);
    imax = 0;
    vmax = -1.0;
    for i=1:m
        v = abs( a(i,c) );
        if v > vmax
            vmax = v;
            imax = i;
        end
    end
end

function a=dopivot(a, p, q)
    tmp = a(p,:);
    a(p,:) = a(q,:);
    a(q,:) = tmp;
end