function [A,bv] = LP_setup(A)
% 
% This file was written by Mary Pugh, mpugh@math.toronto.edu, in
% February 2002.  Please do not use this without her consent and 
% without attributing her.

[m,n] = size(A);
% number of input variables
m = m-1;
for i=1:m
  a = input('what is your basic variable?  ','s');
  nn = length(a);
  b = a(2:nn);
  for j=1:n 
    if int2str(j) == b
      bv(i) = j;
    end
  end
end

disp(' ')
disp(' ')

[m,n] = size(A);
a = int2str(1);
s = strcat('          x',a);
b = strcat(s,'        ');
for i=2:n-1
  a = int2str(i);
  b = strcat('        x',a);
  b = strcat(b,'        ');
  s = strcat(s,b);
end
disp(s)

for i=1:m-1
  b = strcat('  x',int2str(bv(i)));
  c = sprintf('%8.5g  ',A(i,:));
  disp(strcat(b,c)) 
end
b = ' obj';
c = sprintf('%8.5g  ',A(m,:));
disp(strcat(b,c)) 
disp(' ')
disp(' ')

