dedisp(w,beta,z,c)

function dedisp(w,beta,z,c)
%DEDISP Display results of Schwarz-Christoffel exterior parameter problem.
%   DEDISP(W,BETA,Z,C) displays the results of DEPARAM in a pleasant
%   way.
%
%   See also DEPARAM, DEPLOT.

%   Copyright 1998 by Toby Driscoll.
%   $Id: dedisp.m 7 1998-05-10 04:37:19Z tad $

disp(' ')
disp('          w               beta              z               arg(z)/pi')
disp(' -----------------------------------------------------------------------')
u = real(w);
v = imag(w);
x = real(z);
y = imag(z);
ang = angle(z)/pi;
ang(ang<=0) = ang(ang<=0) + 2;
for j = 1:length(w)
  if v(j) < 0
    s1 = '-';
  else
    s1 = '+';
  end
  if y(j) < 0
    s2 = '-';
  else
    s2 = '+';
  end
  disp(sprintf(' %8.5f %c %7.5fi    %8.5f   %8.5f %c %7.5fi    %14.12f',...
      u(j),s1,abs(v(j)),beta(j),x(j),s2,abs(y(j)),ang(j)));
  
end
disp(' ')
if imag(c) < 0
  s = '-';
else
  s = '+';
end
disp(sprintf('  c = %.8g %c %.8gi',real(c),s,abs(imag(c))))