    function k=lrcond(A,L,R);
    % Uppskatta konditionstalet för A givet 
    % LR-faktoriseringen PA = LR
    y=lcond(R');       % Välj högerled så att y blir stor
    s=L'\y; s=(1/norm(s,inf))*s;     % Normera s
    w=L\s;
    z=R\w;
    k=norm(A,inf)*norm(z,inf);




