function x=tableau2(a,b,z,w)
%

%Author: David Ivers
[m,n]=size(a);
p=m+n;
if m ~= length(b)
   error('Number of rows of A and b do not match.')
end;
if n ~= length(z)
   error('Number of columns of A and z do not match.')
end;
if  p~= length(w)
   error('Total number of rows of A and columns of z does not match number of columns of w.')
end;
x=[1 0 -w 0; 0 1 -z zeros(1,m+1) ; zeros(m,2) a eye(m) b; 1 0 -w 0];
t=displaytableau2(x);