function y=ratios(k,x)
%

%Author: David Ivers
[m,n]=size(x);
m=m-1;
fprintf('\n')
fprintf('Ratios of RHS to column %2.0f:\n',k)

fprintf('\n')
for j=1:7*n+19
    z(j)='-';
end;
    var='   Z   |';
fprintf(var)
for j=2:n-1
 kk=ceil(x(m+1,j));
if kk == 0
 if j < 11
    var=['   x',num2str(j-1),'  '];
    fprintf(var)
 elseif j < 101
    var=['   x',num2str(j-1),' '];
    fprintf(var)
 end
else
  if kk < 10
    var=['   x',num2str(kk),'  '];
    fprintf(var)
 elseif kk < 100
    var=['   x',num2str(kk),' '];
    fprintf(var)
 end
end
end;
    var=' |     RHS';
    fprintf(var) 
    var='   |  Ratio';
    fprintf(var)

fprintf('\n')

fprintf(z)
fprintf('\n')
for i=1:m
for j=1:n
 if j == 1
    fprintf('%6.2f | ',x(i,1))
 elseif j <= n-2
    fprintf('%6.2f ',x(i,j))
 elseif j == n-1
    fprintf('%6.2f |',x(i,j))
 elseif j == n
    fprintf('%10.2f',x(i,j)) 
 end
end
    if i == 1
       fprintf(' |     -\n') 
    elseif x(i,k) > 0 
       y(i) = x(i,n)/x(i,k);
       fprintf(' | %8.2f\n',y(i))
    else
       fprintf(' |     -\n')
     end;
end
fprintf(z)
fprintf('\n')