stdisp(w,beta,z,c)

function stdisp(w,beta,z,c)
%STDISP Display results of Schwarz-Christoffel strip parameter problem.
%   STDISP(W,BETA,Z,C) displays the results of STPARAM in a pleasant
%   way.
%
%   See also STPARAM, STPLOT.

%   Copyright 1998 by Toby Driscoll.
%   $Id: stdisp.m 9 1998-05-10 04:55:10Z tad $

disp(' ')
disp('      vertex [w]           beta            prevertex [z]     ')
disp(' ------------------------------------------------------------')
u = real(w);
v = imag(w);
for j = 1:length(w)
  if v(j) < 0
    s = '-';
  else
    s = '+';
  end
  if ~imag(z(j))
    disp(sprintf(' %8.5f %c %7.5fi     %8.5f    %20.12e',...
      u(j),s,abs(v(j)),beta(j),z(j)));
  else
    disp(sprintf(' %8.5f %c %7.5fi     %8.5f    %20.12e + i',...
      u(j),s,abs(v(j)),beta(j),z(j)));
  end    
end
disp(' ')
if imag(c) < 0
  s = '-';
else
  s = '+';
end
disp(sprintf('  c = %.8g %c %.8gi\n',real(c),s,abs(imag(c))))