function y=displaytableau(x)
%

%Author: David Ivers
[m,n]=size(x);
m=m-1;
fprintf('\n')
for j=1:7*n+8
    z(j)='-';
end;
    var='   Z   |';
fprintf(var)
for j=2:n-1
 k=ceil(x(m+1,j));
if k == 0
 if j < 11
    var=['   x',num2str(j-1),'  '];
    fprintf(var)
 elseif j < 101
    var=['   x',num2str(j-1),' '];
    fprintf(var)
 end
else
  if k < 10
    var=['   x',num2str(k),'  '];
    fprintf(var)
 elseif k < 100
    var=['   x',num2str(k),' '];
    fprintf(var)
 end
end
end;
    var=' |     RHS';
    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))
 else
    fprintf('%10.2f\n',x(i,j))
 end
end 
end
fprintf(z)
fprintf('\n')
y=[];